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SECTION  I 
INTRODUCTION 

Digital  signal  processing  Is  constantly  moving  Into  areas  occupied 
by  analog  signal  processing.  This  trend  Is  basically  paced  by  the 
development  of  faster  and  denser  Integrated  circuits.  Although  real-time 
complex  digital  signal  processing  has  been  around  for  some  time,  most 
Implementations  have  been  an  extension  of  real  signal  processing  hardware 
and  techniques. 

An  Imaginary  channel  is  added  and  the  processing  Is  performed  in  the 
real /imaginary  coordinated  system.  This  coordinated  system  Is  basically 
mismatched  to  the  operational  and  quantization  requirements  of  complex 
signal  processing.  Complex  signal  processing  primarily  deals  with  phase- 
to-amplitude  and  amplitude- to- phase  information  transforms,  hard  limiting 
of  amplitude,  storage  of  phase  only  Information,  etc.  The  real /Imaginary 
coordinate  system  does  not  provide  for  the  efficient  separation  of  phase 
and  amplitude  information.  Also,  either  excessive  bits  or  floating  point 
hardware  is  required  to  handle  large  amplitude  dynamic  ranges. 

This  mismatch  is  further  detailed  In  Section  II  which  covers  the 
conception  of  a  Log  Polar  Quantization  scheme  and  its  key  element,  the 
Log  Polar  Vector  Adder. 

Section  III  discusses  the  Implementation  of  the  Vector  Adder  In  a 
register  level  simulation,  a  hardware  breadboard,  and  a  gate  level 
simulation. 

Section  IV  contains  the  conclusion. 
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SECTION  II 
THE  CONCEPT 

This  section  discussed  the  Log  Polar  quantization  and  the  design  of 
a  Log  Polar  Vector  Adder  circuit.  The  format  this  section  basically 
follows  Is  the  pattern  of  the  Idea's  conception.  The  basic  decision 
criteria  used  were  low  cost  and  maximum  compatablllty  with  commercial 
microprocessor  designs.  Also,  the  implementation  of  the  Vector  Adder 
was  based  more  on  practicality  than  on  optimization  analysis. 

For  digital  signal  processing,  complex  data  is  typically  quantized 
as  linear  real  and  imaginary  word  pairs  of  8  to  16  bits  each.  This 
quantization  technique  is  an  extension  of  real  data  quantization  and  is 
a  poor  match  to  the  phase  and  amplitude  operations  typical  of  signal 
processing.  Amplitude  weighing  requires  two  multiplications  on  two  words 
even  though  It  is  fundamentally  a  one-multi  ply  operation.  Phase 
rotation  requires  a  sine  table  lookup  and  four  multiplications,  even 
though  it  is  fundamentally  an  add  operation.  Amplitude  detection  requires 
the  square  root  of  the  sum  of  the  squares  of  the  real  and  imaginary  words 
or  an  approximation  thereof,  even  though  fundamentally  no  operation  should 
be  required.  Signal  processing  frequently  involves  conversions  between 
amplitude  and  phase  information,  and  the  storage  of  phase  only  or  ampli¬ 
tude  only  -n formation.  Complex  signal  processing  typically  interfaces 
the  man-computer  to  the  receiver-transmitter;  the  first  prefers  amplitude 
information,  and  the  latter  prefers  phase  information.  The  real  and 
imaginary  quantization  technique  requires  the  storage  of  both  phase  and 
amplitude  information  to  equivalent  precisions  even  if  only  one  is 
required.  Also,  real  and  Imaginary  quantization  typically  requires  two 
matched  mixer-IF-A/D  channels  or  an  over  sampled  real  channel  and  some 
extra  processing. 

Polar  quantization  is  a  better  fit,  because  the  amplitude  and  phase 
information  are  Independently  quantized.  No  processing  Is  required  to 
Interface  to  the  amplitude  world  of  the  man-computer.  The  transmitter- 
receiver  interface  is  equally  straightforward,  but  admittedly  less 
familiar  and  developed.  No  phase-to-dlgital  converters  or  polar-phase 
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modulators  are  known  to  exist.  However,  there  are  no  fundamental  or 
practical  constraints  to  their  implementation.  In  fact,  they  could 
provide  considerable  simplifications  in  the  R.F.-to-digital  conversion 
hardware. 

Unfortunately  signal  processing  requires  a  vector  addition  function. 
The  typical  way  to  implement  this  function  for  polar  quantization,  is 
to  convert  to  real  and  imaginary  quantization.  Needless  to  say,  the 
cure  is  worse  than  the  disease.  A  direct  table  lookup  operation  is  also 
generally  impractical  because  of  the  table  size.  If  one  of  the  vectors 
can  be  normalized  with  respect  to  the  other,  the  table  size  can  be 
reduced  by  the  square  root.  The  phase  normalization/inverse-normalization 
is  a  subtraction/addition  process;  however,  the  amplitude  process  requires 
a  division/multiplication  process.  The  cure  is  better,  but  still  worse 
than  the  disease-.  If  the  amplitude  is  quantized  on  a  logarithmic  scale 
the  normalization  becomes  a  subtraction/addition  process.  Also,  the 
logarithmic  amplitude  scale  Is  better  suited  to  complex  signal  processing. 
Large  dynamic  ranges  can  be  stored  in  a  limited  number  of  bits  without 
the  hardware  complexity  of  floating  point,  and  the  quantization  accuracy 
is  a  percent  of  value  (+xdb)  rather  than  plus  or  minus  the  least 
significant  bit.  If  the  logarithmic  quantization  is  based  on  integer 
powers  of  two  (computers  like  powers  of  two)  the  large  dynamic  range  is 
achieved  in  a  few  bits,  but  the  accuracy  is  only  plus  or  minus  6.0  db. 

Note  the  amplitude  values  of  Table  1  for  the  four  most  significant  bits. 
This  accuracy  is  not  very  useful,  because  of  the  false  signals  (quanti¬ 
zation  noise)  caused  by  the  amplitude  quantization  errors.  Floating 
point  is  the  typical  solution,  but  its  mixed  quantization  scheme  requires 
an  unacceptable  hardware  penalty  in  this  case.  The  solution  is  to  extend 
the  logarithmic  scale  downward  with  fractional  powers  of  2.  Note  the 
amplitude  values  of  Table  1  for  the  three  least  significant  bits.  Negative 
amplitude  values  are  not  Included  in  the  quantization;  negative  values 
are  handled  by  180°  phase  reversals  (changing  the  most  significant  bit  of 
phase).  Also  note  that  zero  Is  not  Included.  The  smallest  value  Is  a 
ratio  of  one.  Don't  panic,  zero  amplitude  signals  do  not  exist  in  the 
real  world.  Complex  signal  amplitudes  are  ratios  or  referenced  values; 
signal  to  noise,  dbm,  dbw,  etc. 
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TABLE  1 

AMPLITUDE  AND  PHASE  SCALES 

.AMPLITUDE  PHASE 


OCTAL 

db 

RATIO 

OCTAL 

DEGREES 

0 

0.00 

1.0000 

0 

0.00 

1 

0.75 

1.0905 

1 

2.81 

2 

1.50 

1.1892 

2 

5.63 

3 

2.25 

1.2968 

3 

8.44 

4 

3.00 

1.4142 

4 

11.25 

5 

3.75 

1.5422 

5 

14.06 

6 

4.50 

1.6818 

6 

16.88 

7 

5.25 

1.8340 

7 

19.69 

10 

6.00 

2.0000 

10 

22.50 

20 

12.00 

4.0000 

20 

45.00 

30 

18.00 

8 . 0000 

30 

67.50 

40 

24.00 

16.0000 

40 

90.00 

100 

48.00 

256.0000 

100 

180.00 

140 

72.00 

4096.0000 

140 

270.00 

177 

95.25 

60097.0000 

177 

357.20 
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We  have  now  reached  the  point  of  plausibility,  but  we  still  have  to 
reach  the  point  of  practicality.  The  main  problem  left  Is  the  peak  and 
Integrated  values  of  the  quantization  noise.  This  will  be  the  main 
limitation  on  applications  of  this  Log  Polar  Implementation.  The  quanti- 
zation  noise  will  correlate  to  produce  false  signals.  It  Is  desirable 
to  reduce  this  peak  quantization  noise  toward  the  level  of  the  average 
quantization  noise.  This  Is  accomplished  in  the  vector  adder  by  the 
addition  of  pseudo-random  amplitude  and  phase  noise  at  half  the  value 
of  the  least  significant  bit  of  both  phase  and  amplitude.  This  has  no 
practical  effect  on  real  world  signals,  because  they  are  not  aligned  to 
the  quantization  scale.  This  noise  technique  comes  virtually  free  by 
offsetting  the  calculated  table  values  by  half  the  value  of  the  least 
significant  bit,  and  by  adding  random  values  to  the  least  significant 
bit  of  the  normalized  phase  and  amplitude.  The  phase  is  randomized  based 
on  the  least  significant  bit  of  the  normalized  amplitude  and  the  amplitude 
on  the  least  significant  bit  of  the  normalized  phase.  This  provides  an 
acceptable  randomization,  while  keeping  a  deterministic  output  that  is  a 
function  of  input.  This  is  Important  to  the  testability  of  the  circuit. 

A  specific  quantization  scale  is  picked  next  and  a  practical  vector 
adder  circuit  is  designed.  No  attempt  was  made  to  define  an  optimum 
scale,  only  a  practical  one  for  demonstration  purposes.  Before  we  can 
proceed,  we  need  to  pause  and  try  to  visualize  the  total  signal  processing 
subsystem.  Note  that  once  we  have  the  vector  adder  circuit  all  other 
complex  signal  processing  functions  are  additions  and  subtractions.  Also, 
the  table  size  of  the  vector  adder  grows  approximately  exponentially  in 
proportion  to  the  word  size. 

We  would  certainly  like  to  take  advantage  of  the  explosion  in  com¬ 
mercial  microprocessors.  The  main  word  size  of  these  processors  Is 
currently  8  bits  and  will  be  16  bits  in  the  near  future.  Thus,  eight 
bits  for  amplitude  and  eight  bits  for  phase  looks  like  a  good  choice  so 
far.  But,  a  better  choice  might  be  seven  bits  of  amplitude  and  seven 
bits  of  phase.  This  leaves  a  one  bit  buffer  between  the  phase  and 
amplitude  so  that  a  single  16  bit  Arithmetic  Logic  Unit  can  do  separate 
arithmetic  operations,  on  both  seven  bit  fields,  simultaneously.  The 
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seven  bit  phase  field  is  stored  in  the  least  significant  bits  (1  through  7). 
The  eighth  bit  is  a  buffer.  The  seven  bit  amplitude  field  is  stored  in 
the  next  seven  bits  (8  through  15).  The  sixteenth  bit  (sign  bit)  is  used 
for  amplitude  overflow.  The  seven  bits  of  phase  provide  (360°/128)  +2.8° 
accuracy.  This  accuracy  is  not  outstanding  but  is  adequate  for  many 
applications.  It  is  also  a  good  match  to  the  phase  accuracy  of  most  low- 
to-moderate-cost  receiver/transmitter  systems.  The  seven  bits  of  amplitude 
provide  almost  96  db  of  dynamic  range  with  jWD.75  db  accuracy  (Table  1). 

Again  this  is  a  good  match  to  most  low  to  moderate  cost  receiver/trans¬ 
mitter  and  display  systems.  The  main  question  now  is  the  limitations  of 
the  quantization  noise  for  the  chosen  scale. 

The  quantization  noise  has  not  been  analytically  quantified,  because 
the  logarithmic  amplitude  quantization  makes  the  vector  addition  a  two- 
dimensional,  nonlinear  process.  However,  the  Fast  Forrier  Transform  (FFT) 
has  been  simulated  and  the  peak  quantization  noise  was  more  than  38  db 
below  signal  level.  The  pseudo-random  noise  addition  keeps  the  peak 
quantization  noise  very  near  the  integrated  level.  The  intermodulation 
products  were  more  than  30  db  down  and  a  weighted  FFT  with  minus  30  db 
sidelobes  was  obtained.  Better  performance  can  be  achieved  from  more 
bits,  but  the  vector  add  table  expands  very  rapidly. 

A  block  diagram  of  the  vector  adder  is  shown  in  Figure  1.  The 
circuit  is  not  clocked.  It  consists  of  combinational  logic.  Internal 
registers  could  be  added  to  pipeline  the  logic  and  increase  its  throughput. 

A  final  chip  design  would  include  input  and/or  output  latches.  Also, 
controlled  inversion  of  the  most  significant  bit  of  phase  would  be  in¬ 
cluded  for  vector  subtractions.  This  only  requires  the  addition  of  two 
input  lines  and  two  exclusive  Or  gates.  Two  fourteen  bit  vectors  "VI" 
and  "V2"  are  input  at  the  top  of  the  figure.  The  "A"  and  "P"  designate 
the  amplitude  and  phase  terms,  respectively.  The  fourteen  bit  output 
is  at  the  bottom.  "AO"  is  the  seven  bit  amplitude  field,  and  "PO"  is 
the  seven  bit  phase  field.  Amplitude  operations  occur  on  the  left  side 
of  the  figure  and  phase  operations  on  the  right. 
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The  circuit  function  is  reasonably  straightforward,  if  the  basic 
processes  are  kept  in  mind.  The  four  basic  processes  are  select  largest 
amplitude,  vector  normalize,  table  lookup,  and  inverse  vector  normalize. 

All  other  functions  of  the  circuit  either  reduce  the  hardware  or  enhance 
the  overall  function.  The  first  basic  process  "Largest  Amp"  determines 
the  input  vector  with  the  largest  amplitude.  This  is  done  in  the  "CMP" 
block.  Also,  the  largest  vector  is  selected  in  the  two  "MUX"  (multiplexer) 
blocks.  This  selection  is  determined  by  the  Largest  Flag  ("LF").  The 
second  basic  process  "Vector  Normalize”  is  performed  next. 

The  smallest  amplitude  vector  is  normalized  with  respect  to  the 
largest  in  the  two  "DIFF"  blocks.  "LF"  causes  the  smallest  vector  to  be 
subtracted  from  the  largest.  The  result  is  a  positive  amplitude  number 
equal  to  the  absolute  value  of  the  smallest  minus  the  largest.  Zero  (0) 
represents  a  normalize  amplitude  of  one  (0  db).  Eight  represents  -3  db 
and  so  on.  This  is  done  because  table  addresses  are  easier  to  implement 
as  positive  numbers.  Subtracting  the  smallest  from  the  largest  also 
results  in  negative  values  of  normalize  phase.  This  is  corrected  in  the 
table  by  using  negative  phase  values  for  the  positive  phase  input  values. 
This  phase  inversion  could  be  removed  in  future  versions,  but  care  should 
be  taken  or  no  significant  circuit  reductions  will  result.  The  "RND" 
input  to  the  phase  "DIFF"  block  is  its  carry  input  and  is  from  the  least 
significant  bit  of  the  normalized  amplitude.  Remember,  the  calculated 
table  values  are  offset  by  half  the  value  of  the  least  significant  bit, 
so  that  a  random  choice  is  made  between  +1/2  least  significant  bit. 

Because  of  the  large  dynamic  range  and  limited  accuracy  of  the 
amplitude  quantization,  the  vector  addition  is  not  significant  for  large 
amplitude  differences.  In  these  cases  the  change  in  amplitude  of  the 
largest  vector  is  less  than  the  least  significant  bit  of  quantization. 

The  "Amp  Si g  Lmt"  block  detects  this  condition  to  reduce  the  required 
size  of  the  Read  Only  Memory  (ROM)  table.  Prior  to  the  application  of 
this  limit  the  least  significant  bit  of  the  normalized  phase  is  added 
at  the  "RND"  input  to  rendomize  the  least  significant  bit  of  the 
normalized  amplitude.  Because  the  normalized  vector  addition  is  symmet¬ 
rical  about  the  0°  to  180°  phase  line,  the  phase  is  folded  into  the  upper 
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hemisphere  (0°  to  180°)  If  It  Is  between  180°  and  360°  (Figure  2.) 

This  Is  performed  In  the  "Phase  Fold"  block  and  reduces  ROM  table  sl2e 
requirements  by  a  factor  of  two. 

The  next  basic  process  Is  “Table  Lookup,"  which  Is  performed  In  the 
block  labeled  "ROM  Table."  The  table  vectorlally  adds  the  normalized, 
amplitude  limited,  and  phase  folded  vector  to  a  unit  vector  at  0°  phase. 

Both  the  amplitude  and  phase  output  fields  are  offset  by  minus  one 
to  reduce  the  table  size.  These  offsets  are  corrected  by  adding  one  In 
both  the  amplitude  and  phase  Inverse  normalize  blocks. 

The  last  basic  process  is  the  "Inverse  Vector  Normalize."  The 
amplitude  field  of  the  vector  out  of  the  table  is  added  to  the  amplitude 
field  of  the  largest  vector,  which  was  selected  in  the  first  basic 
process.  Additional  logic  "Amp  U  F  LMT"  prevents  an  underflow  condition 
by  setting  the  amplitude  field  to  zero  when  an  underflow  condition  is 
detected.  Thus,  the  user  need  not  be  concerned  with  amplitude  underflow 
errors  generating  false  signals.  Amplitude  overflow  errors  are  not 
possible  because  the  ROM  table  is  actually  implemented  as  a  vector 
addition  divided  by  two.  Thus,  the  amplitude  output  can  never  be  larger 
than  the  largest  amplitude  input.  See  Figure  3.  This  not  only  simplifies 
the  hardware  implementation,  but  frees  the  user  from  being  concerned  with 
false  signals  caused  by  amplitude  saturation.  FFT's  implemented  with 
this  "Normalize"  vector  addition  are  equivalent  to  fixed  scaling  (dividing 
by  two)  in  each  FFT  stage.  The  noise  drops  out  from  under  the  signal, 
instead  of  the  signal  growing  out  of  the  noise.  The  FFT  can  be  scaled 
up  to  saturation  at  any  stage  without  concern  for  overflows  or  allowing 
extra  bits  for  signal  growth.  The  division  by  two  can  be  simply  undone 
by  adding  8  (3  db)  to  the  amplitude  field.  Also,  the  amplitude  can  be 
limited  (clipped)  to  any  level  at  any  time  without  affecting  the  stored 
phase  information. 

The  phase  field  of  the  table  output  is  unfolded  according  to  the 
Phase  Foldover  Flag  ("PPF").  This  is  done  in  the  "Inv  Phase  Fold"  block. 
The  phase  field  of  the  previously  saved  largest  amplitude  vector  is  then 
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added  to  perform  the  inverse  normalization  process  on  the  phase.  This 
is  performed  in  the  "sum"  block.  No  underflow  or  overflow  conditions 
occur  for  phase,  because  the  phase  quantization  is  circular.  See  Figure  2. 

The  process  Is  now  complete;  the  two  vectors  have  been  vertically 
added  and  divided  by  two.  The  circuit  Is  of  reasonable  size  for  a  single 
chip  implementation.  It  would  require  approximately  800  gates  and  24 
kilobits  of  ROM.  See  Figure  4.  This  gate  complexity  Is  approximately 
equivalent  to  an  eight-by-eight  bit  multiplier  and  an  eight  bit  sine 
table,  but  is  much  more  effective.  The  Vector  Adder  chin  could  turn  a 
conventional  sixteen  bit  microprocessor  into  a  low  cost  complex  signal 
processor  capable  of  performing  a  FFT  butterfly  in  five  operations, 
without  a  sine  table,  with  large  dynamic  range,  with  minimum  storage,  and 
with  no  overflow  concerns.  Using  an  eight-by-eight  bit  multiplier  and 
sine  table,  the  microprocessor  would  require  more  than  fifteen  operations 
to  perform  the  FFT  butterfly,  with  limited  dynamic  range,  with  maximum 
storage,  and  with  constant  overflow  concerns.  See  Table  2.  The  FFT 
butterfly  is  only  used  as  an  example,  the  vector  adder  circuit  has  not 
been  optimized  to  perform  It  at  the  expense  of  other  complex  signal 
processing  algorithms. 
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TABLE  2 

FFT  BUTTERFLY  CODING 


LOG 

POLAR 

REAL- IMAGINARY  * 

1. 

W*  *  VI 

1. 

Load  WRN 

2. 

Load  VI 

2. 

Load  VR1 

3. 

Load  V2 

3. 

WRN  *  VR1 

4. 

(V1+V2) t  2 

4. 

Load  VII 

5. 

(V1-V2)  t  2 

5. 

WRN  *  VII 

6. 

Load  WIN 

7. 

WIN  *  VII 

8. 

Load  VR1 

9. 

WIN  *  VR1 

10. 

WVR1 

11. 

WVI1 

12. 

WVR1  +  VR2 

13. 

WVI1  +  VI2 

14. 

WVR1  -  VR2 

15. 

WVI1  -  VI2 

*  Does  not  include  overflow,  scaling, 

or  derivation  of  WR 

and  WIN 

from  sine  table. 
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SECTION  III 
THE  IMPLEMENTATION 

There  are  three  basic  parts  to  the  Implementation  of  the  Log  Polar 
Vector  Adder  concept.  The  first  Is  register  level  simulation.  The 
second  Is  a  hardware  breadboard  and  the  third  is  a  gate  level  simulation. 
The  register  simulation  was  done  on  the  "POPIl"  computer;  the  breadboard 
was  connected  to  the  "PDP11 and  the  gate  simulation  Inputs  and  outputs 
were  provided  to  the  "PDP11."  The  "PDP11"  system  was  used  to  verify  the 
functional  equivalence  of  all  three  Implementations.  This  was  a  tremendous 
aid  in  the  development  of  all  three  Implementations.  The  "POPIl'1  system 
also  performed  calculations  for  the  ROM  table  and  Initial  calculations 
used  during  circuit  conception.  The  basic  input  to  all  three  implementa¬ 
tions  was  a  functional  layout  of  the  circuit  in  existing  integrated 
circuits.  The  functional  layout  was  the  controlling  medium  and  functional 
errors  were  corrected  on  this  layout. 

A.  Register  Level  Simulation 

Prior  to  the  register  level  simulation  and  during  the  concept 
stage,  a  Fortran  program  was  written  and  modified  to  calculate  the  ROM 
table.  This  program  is  called  "Table"  and  can  be  found  in  Appendix  A,  in 
its  final  form.  This  program  calculates  the  input  amplitude  quantization 
as  AMPI  =  2.0**  ( - DA I * I A  +  (1.0/16.0)). 

The  powers  of  two  made  the  amplitude  logarithmic.  "DAI"  is  the 
linear  delta  amplitude  for  input,  and  is  given  as  DAI  =  1.0/8.  "IA" 
is  the  input  integer  amplitude  field.  This  field  is  the  output  of  the 
amplitude  normalization  process  and  represents  ratios  less  than  1;  thus 
the  negative  sign  in  front  of  "DAI."  The  "(1.0/16.)"  is  the  one-half 
least  significant  bit  amplitude  offset.  The  input  phase  quantization  is 
calculated  as  PHASI  =  -DPI*IP-DPI/2.  "DPI"  is  the  Delta  Phase  for  input 
given  as  DPI  2.0*PI/"200,  where  "200  is  the  octal  representation  of  the 
128  decimal,  and  "PI"  is  the  constant  3.1416.  The  minus  sign  in  front 
of  "DPI"  corrects  the  negative  phase  normalization  as  mentioned  previously 
in  the  functional  description.  "IP"  is  the  input  integer  phase  field. 

The  field  is  the  output  of  the  phase  normalization  and  phase  foldover 
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operation.  The  "DPI/2"  Is  the  one-half  least  significant  bit  of  phase 
offset.  This  normalized  Input  vector  Is  vectorlally  added  to  a  vector 
of  one  at  zero  degrees  and  the  results  are  divided  by  two.  The  output 
amplitude  and  phase  are  quantized  like  the  Inputs  only  the  one-half 
least  significant  bit  offsets  are  not  used.  However,  the  output  ampli¬ 
tude  and  phase  fields  are  each  offset  by  minus  one  to  reduce  the  table 
size.  The  output  of  "Table"  was  reformatted  to  form  the  table  for  the 
register  level  simulation.  See  "EPR0H1"  and  "EPR0M2"  In  Appendix  A. 

The  output  was  also  reformatted  for  use  In  the  gate  level  simulation  and 
for  programming  the  EPROM  chips  of  the  breadboard. 

The  register  level  simulation  was  derived  from  the  functional 
layout.  FORTRAN  Callable  "PDPll"  assembly  language  subroutines  were 
written  for  each  functional  block.  Table  3  lists  and  describes  these 
subroutines,  which  can  be  found  In  Appendix  A.  FORTRAN  programs  simulate 
the  circuit  by  calling  the  subroutines  In  the  proper  order. 

The  program  "EST"  Is  used  to  test  the  register  simulation  against 
double  precision  floating  point  calculations.  Amplitude  and  phase 
error  limits,  "ADLMT"  and  "PDLMT,"  are  set,  and  random  inputs  for  the 
vector  adder  simulation  are  generated.  Because  the  vector  addition 
process  is  logarithmic,  the  actual  errors  are  a  function  of  Input,  so 
the  program  error  limits  are  exceeded  occasionally.  An  example  is  the 
addition  of  two  equal  amplitude  vectors  with  a  180  degree  phase  difference. 
The  errors  were  manually  checked  to  verify  that  the  vector  adder 
simulation  was  not  at  fault. 

Three  FORTRAN  programs  were  used  for  the  FFT  evaluation  of  the 
vector  adder  simulation.  These  three  programs  are  in  Appendix  A. 

The  first  Is  called  "WEIGHT"  and  Is  used  to  perform  a  cosine  squared 
weighting  of  the  amplitude.  This  Is  used  In  checking  the  si  delobe 
performance  of  the  log  polar  quantization.  The  second  program  is  called 
"SHUF."  It  performs  the  bit  reversed  shuffle  of  data  for  FFT.  The 
third  program  Is  called  "STAGE."  It  performs  one  stage  of  the  FFT.  The 
complete  FFT  Is  performed  by  making  multiple  calls  of  the  "STAGE"  program. 
This  can  be  seen  In  the  FFT  Batch  Job  example  In  Appendix  A. 

15 


TABLE  3 


REGISTER  LEVEL  SIMULATION  SUBROUTINES 


Subroutine  Name 

Function 

IDLVA 

Determine  Largest  Vector  Amplitude 

INA 

Normalize  Amplitude 

INP 

Normalize  Phase 

IRA 

Randomize  Amplitude 

IASL 

Amplitude  Significance  Limit 

IPFQ 

Phase  Foldover  Question 

IPF 

Phase  Foldover 

INVAT 

Normalize  Vector  ADD  Table 

ICED 

Combine  EPROM  Data 

ISLV 

Select  Largest  Vector 

I  INA 

Inverse-Normal ize  Amplitude 

IVNP 

Inverse-Normalize  Phase  &  Inverse  Phase 
Foldover 

ICVO 

Combine  Vector  Output 

EPR0M1 

EPROM  Table  No.  1  (used  by  INVAT) 

EPR0M2 

EPROM  Table  No.  2 

IBCLR 

Clear  the  8th  Bit  (used  by  STAGE) 

IBITR 

Bit  Reversal  Routine 

I  SWAB 

Swap  Bytes  (used  by  WF(GHT) 

B.  Hardware  Breadboard 

The  main  objective  of  the  hardware  breadboard  was  to  prove  the 
basic  circuit  design  and  provide  a  starting  point  for  the  gate  level 
simulation.  The  breadboard  was  designed  from  the  functional  drawing 
which  gave  the  integrated  circuits  and  their  interconnections.  A  tech¬ 
nician  translated  this  into  detailed  circuit  drawings  and  a  wire  wrap 
board  layout  drawing.  These  drawings  were  then  used  to  fabricate  and 
wire  wrap  the  breadboard.  The  drawings  are  given  as  Figures  5  through  8. 
Three  connections,  two  for  input,  and  one  for  output,  are  for  the 
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Figure  7.  Vector  Adder  Circuit  Drawing  Sheet  3 
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parallel  interfaces  of  the  "PDPll."  Figure  5  shows  the  inputs,  the  out¬ 
puts,  and  the  multiplexers  used  for  largest  vector  selection,  the 
amplitude  inverse  normalization,  the  amplitude  underflow  limit,  and  the 
phase  inverse  normalization.  Figure  6  shows  the  phase  table  offset, 
which  is  part  of  the  inverse  phase  normalization  block;  the  amplitude 
randomizer,  which  is  part  of  the  amplitude  normalize  block,  and  the 
amplitude  significance  limit.  Figure  7  shows  the  amplitude  comparators, 
the  amplitude  normalization,  the  phase  normalization,  and  the  phase 
foldover.  Figure  8  shows  the  table.  This  consists  of  two  2K  word-by- 
8  bit  EPROMs  and  some  miscellaneous  logic  to  connect  them.  Only  one 
2K-by-8  bit  and  one  2K-by-4  bit  is  actually  needed  for  the  table.  This 
can  be  seen  examining  "EPR0M2"  in  Appendix  A.  Note  that  the  upper  four 
bits  of  data  never  change  value. 

The  hardware  only  required  two  hours  to  debug  even  though  it  con¬ 
tained  one  wrong  connection  and  one  bad  device.  This  was  mainly  due 
to  a  professional  layout  and  wire  wrap  job  and  the  "PDPll's"  ability 
to  compare  the  hardware  with  the  register  level  simulation  and  give 
internal  circuit  values  for  fault  Isolation. 

Two  FORTRAN  programs  use  the  register  simulation  to  test  the 
breadboard  through  the  "DR11-C"  parallel  interfaces.  The  first  program 
is  called  "TESTVA"  (Appendix  A).  The  program  takes  two  vectors  supplied 
by  the  user  and  calculates  their  vector  addition  using  the  register 
simulation  and  the  breadboard.  The  intermediate  values  of  the  register 
simulation  are  output  so  that  the  internal  values  of  the  breadboard  can  be 
checked.  The  second  program  is  called  "TESTH"  (Appendix  A).  This  program 
compares  the  breadboard  calculations  to  the  register  simulation  calcula¬ 
tions  for  random  inputs.  Errors  cause  the  program  to  stop  and  wait  for 
operator  action.  This  program  was  run  continuously  for  four  hours  and 
over  four  million  sets  of  vector  additions  without  an  error.  An 
exhaustive  test  of  all  the  gates  in  the  hardware  would  have  been  better, 
but  such  a  test  definition  was  not  worth  the  effort  at  this  stage  in  the 
development. 
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C.  Gate  Level  Simulation 

The  main  objective  of  the  gate  level  simulation  was  the  design 
and  checking  of  a  minimum  gate  count  version  of  the  Vector  Adder  circuit. 

The  resulting  gate  design  Is  the  primary  Input  for  any  follow-on  chip 
development  effort.  The  starting  point  for  the  gate  simulation  was  the 
breadboard  design  and  Its  Integrated  circuit  gate  layouts.  The  logic 
diagrams  for  each  of  the  TTL  circuits  used  in  the  breadboard  were 
examined  to  see  which  of  the  gates  internal  to  the  IC  were  needed  due 
to  the  use  or  non-use  of  Its  input  and  output  lines. 

A  new  block  diagram  (Figures  9  and  10)  was  then  drawn  closely 
resembling  the  breadboard  design  except  In  those  places  where  there  was 
minimum  gate  count  or  a  repetitive  pattern  to  the  gates. 

LOGIC  IV  (REFERENCE  1),  a  gate-level  simulation/program,  was  used 
to  test  the  gate  reduced  version  of  the  Log- Polar  Adder.  Each  block  of 
Figures  9  and  10  was  then  made  into  a  LOGIC  IV  gate  level  subroutine 
called  a  macro  (Figures  11-22).  In  several  cases  the  macro  was  equivalent 
to  the  original  TTL  circuit. 

Two  of  the  more  complex  circuits  were  broken  down  into  submacros. 
These  were  the  74S381  (Figures  23-29)  and  the  74LS83  (Figures  30  and  31). 
Though  six  74S381's  were  used  in  the  breadboard,  five  unique  macros  had 
to  be  made  due  to  the  varied  use  of  the  S0,  SI,  and  S2  control  lines 
(Figures  11-15).  Each  of  the  submacros  was  individually  tested  before 
being  combined  to  form  the  larger  macro. 

It  was  impossible  to  simulate  the  EPROM  exactly,  due  to  the  limited 
ROM  capabilities  of  LOGIC  IV.  In  order  to  generate  the  two  2Kx8  bit 
ROMS  thirty-two,  256x4  bit  LOGIC  IV  ROM's  were  used.  This  introduced  an 
additional  84  gates  to  properly  decode  the  ROM's.  These  gates  were  not 
added  into  the  total  gate  count. 

The  submacros  and  macros  used  in  the  Logic  IV  simulation  can  be 
found  in  Appendix  A.  The  following  list  gives  each  macro  and  the 
description  of  its  function. 


22 


AFAL-TR- 79-1075 


A381  -  This  macro  operates  exactly  as  a  74S381  ALU  with  S2=0, 
S0=S1  NOT  and  Cn=0. 

B381  -  This  macro  operates  exactly  as  a  74S381  ALU  with  S2=0, 

S0=S1  NOT,  no  A3  or  B3  Input,  and  no  P,  G,  and  F3  output. 

C381  -  This  macro  operates  exactly  as  a  74S381  ALU  with  S0*S1 
and  S2=0. 

E381  -  This  macro  operates  exactly  as  a  74S381  ALU  with  the 

exception  of  a  CN4  output  In  place  of  the  P  and  G  outputs. 

F381  -  This  macro  operates  exactly  as  a  74S381  ALU  that  uses 

only  3  sets  of  Its  Input  lines  and  sets  SI =1  and  S2=0. 

A157  -  This  macro  is  the  equivalent  of  a  seven  bit  data  selector/ 

multiplexor  (basic  chip  74157). 

LS83  -  This  macro  is  the  equivalent  of  a  seven  bit  adder  (basic 
chip  74S83) . 

A1X6  -  This  macro  adds  one  to  a  six  bit  value,  producing  a  seven 
bit  result  (basic  chip  74S83). 

A1X7  -  This  macro  adds  a  one  bit  input  to  a  seven  bit  number, 
producing  a  seven  bit  answer  (basic  chip  74S83). 

MH87  -  This  macro  performs  a  pass  or  complement  function  on  a 
six  bit  value  (basic  chip  74H87). 

MA85  -  This  macro  Is  exactly  equivalent  to  the  74L85  comparator 
with  (A>B)=0,  (A<B)  =  0,  and  (A=B)=1 

MB85  -  This  macro  is  exactly  equivalent  to  the  74L85  comparator 
without  the  most  significant  two  bits. 

The  following  list  gives  each  submacro  and  the  description  of  Its 
function. 

SB32 ,  SB33,  SB36  -  These  submacros  produce  the  equivalent  F0  output  of 
the  74S381  ALU  when  S2=0  and  S0=S1  NOT. 

SB42,  SB43,  -  These  submacros  produce  the  equivalent  FI  output  of  the 
SB45,  SB46  745331  AL(J  when  s2ag  and  s0,sl  NQT< 
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SB52,  SB53, 
SB55,  SB56 

SB63 

SB15,  SB16 

SB35 


SB65 


SB1 1 ,  SB12 , 
SB!  3 


SB41 

SB51 

SB61 

SA83 

SB83 

SC83 


These  submacros  produce  the  equivalent  F2  output  of 
the  74S381  ALU  when  S2=0  and  S0=S1  NOT. 

This  submacro  produces  the  equivalent  F3  output  of  the 
74S381  ALU  when  S2=0  and  S0=$1  NOT. 

These  submacros  are  equivalent  to  one  set  of  input  lines 
on  the  74S381 .  They  give  the  intermediate  results  when 
SI =1 ,  S2=0,  and  Cn=S0  NOT. 

This  submacro  uses  the  intermediate  results  from  SB15 
to  generate  the  F0  equivalent  output  of  a  74S381  ALU 
when  Sl=l,  $2=0,  and  Cn=S0  NOT. 

This  submacro  uses  the  intermediate  results  from  SB15 
to  produce  the  F3  equivalent  output  of  a  74S381  ALU  when 
SI =1 ,  S2=0,  and  Cn=S0  NOT. 

These  submacros  are  equivalent  to  one  set  of  input  lines 
on  the  74S381  ALU  without  the  internal  inverted  inputs. 
They  produce  an  intermediate  result  when  S2=0,  S0*S1  NOT, 
and  Cn=0. 

This  submacro  uses  the  intermediate  results  from  SB11 
to  produce  the  FI  equivalent  output  of  the  74S381  ALU 
when  S2=0,  S0=S1  NOT,  and  Cn=0. 

This  submacro  uses  the  intermediate  results  from  SB11  to 
produce  the  F2  equivalent  output  of  the  74S381  ALU  when 
S2=0,  S0=S1 ,  and  Cn=0. 

This  submacro  uses  the  Intermediate  results  from  SB11 
to  produce  the  F3  equivalent  output  of  the  74S381  ALU 
when  S2=0,  $0=S1  NOT,  and  Cn=0. 

This  submacro  is  the  equivalent  of  the  Input  gates  of 
a  74LS83  Adder. 

This  submacro  is  the  equivalent  of  the  input  gates  of  a 
74LS83  Adder  when  C0=1 . 

This  submacro  Is  the  equivalent  of  the  input  gates  of  a 
74LS83  Adder  when  the  B  input  is  equal  to  one. 
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When  all  of  the  macros  were  written  and  debugged  the  main  program 
(see  Appendix  A)  was  written  by  combining  all  of  the  macros.  Due  to  Its 
size  and  complexity,  nearly  all  of  the  main  computer's  memory  space 
and  over  22  minutes  of  CPU  time  were  needed  to  simulate  512  Vector 
addl tlons. 

The  register  level  simulation  on  the  "PDPll"  was  then  rerun  using 
the  Identical  Inputs  as  those  used  In  the  LOGIC  IV  simulation.  Both  sets 
of  results  were  then  stored  on  a  disk  file.  They  were  then  edited  so 
their  formats  were  Identical,  after  which  a  "source  compare"  was  run, 
and  no  errors  were  detected. 
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Figure  12.  B381  Macro 
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Figure  14. 


3 


AFAL-TR- 79- 1 075 


A6 


Figure  18. 
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SECTION  IV 
CONCLUSIONS 

Unfortunately,  the  Log  Polar  Quantization  scheme  is  presently  a 
solution  looking  for  the  appropriate  problem.  Such  a  complex  signal 
processing  problem  would  require  low  cost,  and  only  a  limited  processing 
accuracy,  i.e.,  spurious  signals  greater  than  30  db  down  and  quantization 
noise  greater  than  38  db  down.  Although  Log  Polar  Quantization  offers 
significant  savings  in  digital  hardware,  its  main  impact  will  be  in 
simplifying  the  IF  to  digital,  and  digital  to  IF  conversion  process. 

The  digital  hardware  savings  will  primarily  come  from  the  exploitation 
of  commercial  microprocessors.  The  simplified  IF-to-digital  conversion 
will  come  from  the  development  of  a  phase-to-digital  converter  which 
employs  a  digital  phase-lock  loop  for  conversion.  The  simplified  digital- 
to-IF  conversion  will  come  from  the  development  of  suitable  monolithic 
digital  phase  modulators  that  operate  on  a  digital  phase  input. 
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PROGRAM  TABLE 
DIMENSION  IDATA<4096) 

REAL*8  PI » ALOG2 » DPI » DPO ,  DAI  t DAO» AMPI » PHASI 
REAL*8  XR,XI»AMPOfPHASO»TEMP 
PI=3. 14159265359 
AL0G2=DL0G  <  2 . 0 ) 

DP I =2 . 0#P I / *  200 
DPO=2.0*PI/*200 
DAI  =  1 4  0/8 
DA0=1 .0/8 

PRINT  102fPI»DPI»DP0»DAI»DA0 
IA=-1 
11=0 

DO  100  IAL=1 » ‘ 55 
IA=IA+1 

AMPI=-DAI*IA+<1 .0/16.0) 

AMPI=2.0**AMPI 

IP=-1 

DO  110  IPL=1 » *  100 
11=11+1 
IP=IP+1 

C#*****#*##*#:M***##*#**#*** 

IBI=IPACK< IP» IA) 
C*************************** 

PHASI=-DPI*IP-DPI/2 
XF<=1 .0+AMPI*DC0S<  PHASI) 

XI =AMPI*DSIN< PHASI) 
AMP0=DSQRT<XR**2+XI**2>/2 
PHAS0=0 . 0 

IF ( XR . NE , 0 . 0 )  PHAS0=DATAN2 ( XI r XR ) 
TEMP=PHAS0+DP0/2 

IF ( TEMP . LT . 0 . 0 )  TEMP=TEMP+2 . 0*PI 
I P0= I D I NT ( TEMP/DPO ) 

IF <  IF'O  .EG .  *200  )  IP0=«0 

IF ( IPO . GT . *  177 , OR , IPO.LT . 0)  PRINT  103UP0 
I A0=- ’ 177 

IF(AMPO.EQ.O.O)  GO  TO  115 
TEMP=DLOG ( AMPO ) /AL0G2+DA0/2 . 0 
IF(TEMP.LT.O.O)  TEMP=TEMP-DAO 
I AO=IDINT< TEMP/DAO) 

IFdAO.GT.  *177)  PRINT  104UA0 
IFUAO.LT. -*177)  IAO=- 1 177 
115  CONTINUE 

C***************************** 

c 

IF< IPO.NE.O)  IP0=IP0-1 
IF  < IPO . EG .0 )  IPO=* 177 
IF < IAO.NE.O)  IA0=IA0-1 
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IF ( IAO.EQ.O)  IAO=*377 
C 

IBO=IPACK(IPO,IAO> 

c***************************** 

WRITE (4,101)  IBI » AMPI , PHASI » AMPOfPHASQ, IBO 
IDATA(II)=IBO 
110  CONTINUE 

100  CONTINUE 
IISTA=-*7 
IIST0='0 

DO  130  IALslf'54 
DO  120  IPL=1 » *  10 
IISTA=IISTA+*10 
IIST0=IISTQ+"10 

WRITE(2» 105)  < I DATA ( II)»II=IISTA» IISTO) 

120  CONTINUE 

WRITE<2, 106) 

130  CONTINUE 

105  FORMAT (8X»5H. WORD, 1H  , 06 , 7 ( 1H» , 06 ) ) 

106  FORMAT (IX) 

STOP 

101  FORMAT  < IX , 06 , 2 ( IX, F8 • 4 , IX , F8 » 4  ) , IX  r  06 ) 

102  FORMAT < IX , 6HPI  =  ,E12.5,/1X,6HDPI  ~  »E12.5 

1 ,  / , 1 X , 6HDP0  =  ,E12.5,/,1X,6HDAI  =  ,E12.5 

2 ,  / , IX , 6HDA0  =  »E12.5) 

103  FORMAT (IX, 12HERR0R  IPO  =  ,112) 

104  FORMAT ( IX, 12HERR0R  IAO  =  ,112) 

END 
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PROGRAM  TESTO 

11*0 

JJ=0 

WRITE<3» 198) 

198  FORMAT!'  IYA  IYP  IXA  1XP  IVOA  IVOP' 

+»'  ZA  ZP  VOA  VOP') 

PI=3. 14159265359 
DP=2«0#P 1/128.0 
DA=2.0**<1. 0/8.0) 

DA2=SQRT  <DA) 

ADLMT=DA+0. 000001 
PDLMT=DP+0. 000001 

ICNT=0 
100  CONTINUE 

ICNT=ICNT+1 
10  CONTINUE 

IXA=RAN<II»JJ)**200 

IF< IXA.LT.O. OR . IXA.GT . *  177)  GO  TO  10 
20  CONTINUE 

IXP=RAN  < 1 1 » J J ) #  *  200 

IF < IXP • LT . 0 . OR • IXP.GT . *  177 )  GO  TO  20 
30  CONTINUE 

IYA=RAN<II,JJ)*'200 

IF<IYA.LT.0.0R.IYA.6T.*177)  GO  TO  30 
40  CONTINUE 

IYP=RAN<II,JJ)*-200 

IF< I YP .LT .0 .OR, IYP. GT . *  177)  GO  TO  40 
I1VI=IXA*2**8+IXP 
I2VI=IYA*2**8+IYP 
C 

C  DETERMINE  LARGEST  VECTOR  AMPLITUDE 
Il.F=IDLVA(  I1VI » I2VI ) 

C  NORMALIZE  AMPLITUDE 

ITAA=INA< ILF.I1VI.I2VI) 

C  NORMALIZE  PHASE 

ITAP*INP (ILF.I1VI.I2VI. ITAA  > 

C  RANDOMIZE  AMPLITUDE 

I TAAR= IRA < I TAP. ITAA) 

C  AMPLITUDE  SIGNIFICANCE  LIMIT 
ITAAL=IASL< ITAAR) 

C  PHASE  FOLDOVER  QUESTION 
IPFF=IPFG( I TAP ) 

C  PHASE  FOLDOVER 

I TAPF = I PF  < I PFF , I T AP ) 

C  NORMALIZE  VECTOR  ADD  TABLE 
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ITDT=INVAT ( ITAPF  t ITAAL) 

C  COMBINE  EPROM  DATA 

ITD=ICED< ITAAL » ITDT ) 

C  SELECT  LARGEST  VECTOR 

IVIL=ISLV ( ILF » 1 1 VI f I2VI ) 

C  INVERSE-NORMALIZE  AMPLITUDE 
I VOA=I INA  < I VIL » I TD ) 

C  INVERSE-NORMALIZE  PHASE  &  INVERSE  PHASE  FOLDOVER 
I  VOP^  1 1 NP  ( I PFF  f  I V I L. » I  TD  ) 

C  COMBINE  VECTOR  OUTPUT 

IVO=ICVO ( I VOP  f I VO A ) 

c 


XA=DA**IXA 

YA=DA**IYA 

XP=FLOAT ( 1XP) 
YP=FLOAT ( IYP ) 
XP=DF*XP 
YP=DP*YP 

XR=XA*COS<XP> 
XI=XA*SIN(XP> 
YR=YA*COS< YP) 
YI=YA*SIN<YP) 


ZR=XR+YR 

ZI=XI+YI 

ZA=SQRT(ZR**2+ZI**2>/2.0 
ZP=ATAN2(ZI fZR) 

IVOA-ISWAB< IVOA) 

VOA=DA**IVOA 
VOP=FLOAT< I VOP) 

VOP=DP*VOP 

IF ( ZP • LT .0.0* AND . VOP . NE . 0 . 0 )  ZP=ZP+2 . 0*PI 

PD=ABS  <  ZP-VOP ) 

AD=ZA/VOA 

IF(AD.LT.l.O)  AD=VOA/ZA 

IF(IXA.EO»IYA. AND . IABS ( IXP-I YP >*EQ**100)  GO  TO  210 
IF(IVOA.EQ.O)  GO  TO  220 

IF (AD.GT . ADLMT )  GO  TO  200 
IF<PB.GT .PDLMT )  GO  TO  200 
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PROGRAM  WEIGHT 
DIMENSION  IDATA<256> 

PI=3. 14159265359 
DA=2.0**<1 .0/8.0) 

REAIKSr  102)  RK.NWPNTS 

102  FORMAT  (1X»F8.4»2(1X»0<S)) 

READ <2» 103)  NSTAGE 
NP0INTS=2**NSTAGE 

IF (NSTAGE. LT.l)  STOP  'NSTAGE  <  1' 

IF (NSTAGE ♦ GT . *  10 )  STOP  'NSTAGE  >  *10' 

READ<2» 103)  < I DATA ( I > » 1=1 » NPOINTS) 

103  FORMAT (IX* 06) 

WRIT£<7» 102)  RK f NWPNTS f NPOINTS 

ISTA=<NP0INTS-NWPNTS>/2 

IST0=NP0INTS-ISTA+1 

DO  100  1-1 » ISTA 
100  I DATA ( I )  =  *  0 

DO  105  I=IST0fNP0INTS 
105  IDATA( I )="0 

IST0=IST0-1 

ISTA-ISTA+1 

DPHI=PI/NWPNTS 
PHI=-FI/2. 0-DPHI/2.0 

DO  200  I=ISTAfISTO 

PHI=FHI+DPH.T 

W=1 .0-RK+RK*C0S(PHI >**2 

W=1.0/W 

W=AL0G ( W ) /ALOG ( DA ) 

IW=IFIX<W+0.5) 

IW=ISWAB<IW) 

I  DATA  <  I  >=IDATA( I  )-IW 

IF( I DATA < I ) .LT.O)  IDATA< I )= ■ 177. AND. IDATA< I ) 
200  CONTINUE 

REWIND  2 

WRITE <  2f 103)  NSTAGE 

WRITE <2f 103)  ( IDATA ( I >  f 1=1 f NPOINTS ) 

END 
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BIT  REVERSAL  SHUFFLE  OF  DFFT  DATA 

DIMENSION  IDAT A ( 256 ) 

READ(2» 101 >  NSTAGE 
JP0INTS=2**NSTAGE 

IF < JPOINTS .  LT ♦ 1 >  STOP  'JPOINTS  <  1' 

IF< JPOINTS.GT .256)  STOP  'JPOINTS  >  256' 
READ<2» 101 )  <IDATA< J) » J=l» JPOINTS) 

JJ=-1 

DO  10  J=1 » JPOINTS 
JJ«JJ+1 

JBR=IBITR <  J  J » NST  AGE ) +1 
IF  <  JBR  4  LT  »  J )  GO  TO  10 
ITMP=IDATA( J) 

IBATA(  J)~IEiATA(  JBR) 

I DATA  <  JBR ) - 1 IMP 
0  CONTINUE 

REWIND  2 

WRITE <2 » 101 >  NSTAGE 

WRITE (2» 101 )  ( I DATA! J) r J=1 » JFOINTS) 

101  FORMAT (IX? 06) 

END 
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PROGRAM  STAGE 
C  15-DEC-76  COKER 

C  DFFT  STAGE  IN  LOG-POLAR  QUANTIZATION 

L06ICAL*1  LTMP<  2 ) »LDATA<2»256) »LI2VI<2> 

DIMENSION  IDATA<256) 

EQUIVALENCE  < IDATA  < 1 ) » LDATA ( 1 » 1 ) ) »  < ITMP  » LTMP < 1 >  > 
+  » < I2VI »LI2VI(1)> 

C 

READ<2'101)  NSTAGE 

JP0INTS=2**NSTAGE 

NS2=NSTAGE-1 

IF(JPOINTS.LT.l)  STOP  'JPOINTS  <  1' 

IF < JPOINTS «GT >256)  STOP  'JPOINTS  >  256' 

READ <2» 101 )  ( IDATA< J> » J=1 » JPOINTS > 

101  FORMAT  < 1X'06) 

WRITE<7» 103) 

103  FORMAT < IX » 'ISIGN » JBLOCK  =  ?  2<1X'06>') 

READ ( 5 f 106 >  ISIGN' JBLOCK 
106  F0RMAT<1X» I6»2(1X»06) > 

IF ( IABS( ISIGN) . NE » 1 )  STOP  'ISIGN' 

IF < JBLOCK.LT. 2)  STOP  'JBLOCK  <  2' 

IF< JBLOCK. GT .JPOINTS)  STOP  'JBLOCK  >  JPOINTS' 
JOFFSET = JBLOCK/2 

WRITE <7» 106)  ISIGN' JBLOCKr JOFFSET 

POINT  BLOCK  LOOP 
JJ=0 

JJSTP= ■ 200/JP0INTS 

IF< JPOINTS. GT. *200)  JJSTP=JP0INTS/*200 
DO  100  JSTA=1' JPOINTS 'JBLOCK 
JSTO= JST  A+ JOFFSET- 1 
JJBR=IBITR( JJ'NS2) 

IF ( JPOINTS. LE. *200)  JJBR= JJBR* JJSTP 
IF < JPOINTS. GT. *200)  JJBR= JJBR/JJSTP 
IF( JJBR.NE.O)  JJBR=* 200- JJBR 
INVERSE  DFFT  ? 

IF < ISIGN. EQ.-l .AND. JJBR.NE.O)  JJBR= * 200- JJBR 
WRITE ( 7 » 102 )  JSTA'JJ'JJBR 
02  FORMAT  <  3  < 1 X » 06 ) ) 

JJ=JJ+1 

POINT  LOOP 

DO  100  J=JSTA» JSTO 
ITMP=IBA  TA< J) 

I 1VI=ITMP 

I2VI=IDATA(J+ JOFFSET) 

DETERMINE  LARGEST  VECTOR  AMPLITUDE 
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ILF=IDLVA( I1VI » I2VI ) 

C  NORMALIZE  AMPLITUDE 

ITAA=INA<ILF*I1VI > I2VI) 

C  NORMALIZE  PHASE 

ITAP=INP < ILF • I 1VI » I2VI » ITAA ) 

C  RANDOMIZE  AMPLITUDE 

ITAAR-IRA  ( ITAF‘»  ITAA ) 

C  AMPLITUDE  SIGNIFICANCE  LIMIT 
I T AAL ~ 1 ASL  ( I T AAR  ) 

C  PHASE  FOLDOVER  QUESTION 
IPFF=IPFQ<ITAP> 

C  PHASE  FOLDOVER 

ITAPF=IPF< IPFF* I TAP) 

C  NORMALIZE  VECTOR  ADD  TABLE 

ITDT-INVAT ( I TAPE* IT AAL) 

C  COMBINE  EPROM  DATA 

IT D- ICED  < ITAAL  f ITDT ) 

C  SELECT  LARGEST  VECTOR 

1 VIL-ISLV ( ILF  r 1 1 VI 1 1 2VI ) 

C  INVERSE-NORMAL IZE  AMPLITUDE 
IVOA=IINA(IVIL»ITD> 

C  INVERSE-NORMAL IZE  PHASE  &  INVERSE  PHASE  FOLDOVER 
I VOP= 1 1 NP < IPFF  r I VIL  r I TD ) 

C  COMBINE  VECTOR  OUTPUT 

I VQ-ICVO ( IVOR  f I VOA  > 

I DAT  A ( J  >  =  1 VO 

C  180  DEG  VECTOR  ROTATE  -  MINUS  VECTOR 
I2VI-IDATA ( J+JOFFSET ) 

LI2VI ( 1 ) -LI2VI ( 1 )+ " 100 
C  CLEAR  8TH  BIT 

I 2 V I - I 8CLR ' I 2V I ) 

I1VI=ITMP 

DETERMINE  LARGEST  VECTOR  AMPLITUDE 
ILF- I DLVA ( I 1 VI » I2VI ) 

C  NORMALIZE  AMPLITUDE 

I TAA- I NA < I LF* I 1VI r I2VI ) 

C  NORMALIZE  PHASE 

I TAP- I  NP ( I LF . 1 1 V I r 1 2 V I , I T A A  > 

C  RANDOMIZE  AMPLITUDE 

IT AAR  IRA ( I TAP » ITAA) 

C  AMPLITUDE  SIGNIFICANCE  LIMIT 
IT  AAL.  “I  ASL  ( IT  AAR ) 

C  PHASE  FOLDOVER  QUESTION 
IPFF--IPFO  (  I  TAP) 

C  PHASE  FOLDOVER 

ITAPF-IPF ( IPFF  » ITAP) 

C  NORMALIZE  VECTOR  ADD  TABLE 
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ITDT=INVAT  < ITAPF  r ITAAL) 

C  COMBINE  EPROM  DATA 

ITD-ICED< ITAAL» ITDT) 

C  SELECT  LARGEST  VECTOR 

IVIL=ISLV<ILF,I1VI *I2VI) 

C  INVERSE-NORMALIZE  AMPLITUDE 
I  VOA= I INA (IVIL>ITD) 

C  INVERSE-NORMALIZE  PHASE  &  INVERSE  PHASE  FOLDOVER 
IVOP=I INP ( IPFF  fIVIL»ITD) 

C  COMBINE  VECTOR  OUTPUT 

IVO=ICVO< IVOP» IVOA) 

ITMP=IVO 

C  FORIER  PHASE  WEIGHT 

LTMP  <  1 )  =l.TMP  <  1 )  +  JJBR 
C  CLEAR  8TH  BIT 

IDATA (J+JOFFSET )=I8CLR( ITMP) 

IF  < I SIGN < NE * -1 )  GO  TO  95 
IDATA< J)=IDATA< J>+*4000 

IDATA ( J+JOFFSET )  = IDATA  <  J+JOFFSET )  +  • 4000 
95  CONTINUE 

100  CONTINUE 

C 

REWIND  2 

WRITE <  2 » 101 )  NSTAGE 

WRITE (2*101)  (IDATA<J) * J=1 * JPOINTS) 

WRITE(3* 104)  NSTAGE 

104  FORMAT  (////* IX *03*/) 

WRITE <3, 105)  (LDATA(1, J>  *LDATA(2rJ>  *J=lr JPOINTS) 

105  FORMAT (2(3X*03) ) 

END 
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♦J0B/RT1 1 
.R  PIP 

#TT.=FTN2 • BAT 
*TMPSSFTN2 « DAT 
.RUN  SHUF 
.R  PIP 

*TTJ=FTN2.DAT 
*TMP=TMPfFF fFTN2.DAT 
♦RUN  STAGE 
♦DATA 

1  2 

♦EOD 

♦  RT11 
.R  PIP 

*TTJ=FTN3.DAT 
*TMF-TNPfFF fFTN3.DAT 
♦R!)N  STAGE 
♦DATA 

1  4 

♦EOD 

♦  RTli 
.R  PIP 

#TT  J  =FTN3 . DAT 
♦TMP-TMP f FF  f  FTN3 . DAT 
♦RUN  STAGE 

♦  DATA 

1  10 

♦  EOD 

♦  RT1 1 
.R  PIP 

#TTJ -FTN3.DAT 
#TMP=TMP f  FF  f  FTN3 . DAT 
♦RUN  STAGE 

♦  DATA 

1  20 

♦EOD 

♦  RT11 

♦  R  PIP 

#TT  «  =FTN3 . DAT 
#TMP=TMP f  FF f  FTN3 . DAT 
♦RUN  STAGE 

♦  DATA 

1  40 

♦  EOD 

♦  RT11 

. R  PIP 

*tt:=ftn3.dat 
*TMP=TMPfFF F  FTN3 . DAT 
♦EOJ 


64 


CM  U 


AFAL-TR-79-1075 


PROGRAM  TESTVA 

100  CONTINUE 
WRITE<7» 101 ) 

101  FORMAT < IX f1H?> 

READ(5» 102)  ISU 

102  FORMAT < 12) 

IF<ISU«GT .3)  GO  TO  999 
GO  TO  < 1 r 2f 3)  ISU 

1  CONTINUE 

READ(5rl03)  IX1A, IX1P» IX2A» IX2P 

103  FORMAT (6<1X»03) ) 

WRITE<7f 103)  IX1A> IX1P»IX2A»IX2P 
IX1=IX1A*2**8+IX1P 
IX2=IX2A*2**8+IX2P 
GO  TO  100 
CONTINUE 

I1VI=IX1 
I2VI=IX2 


CALL  I POKE <  *1677A2»I1VI) 

CALL  I POKE < *167752 r I 2VI) 

C  DETERMINE  LARGEST  VECTOR  AMPLITUDE 
ILF=IDLVA< I1VI f I2VI ) 

C  NORMALIZE  AMPLITUDE 

ITAA=INA  < ILF  f 1 1 VI » I2VI ) 

C  NORMALIZE  PHASE 

ITAP=INP  <ILF»I1VI» I2VI r ITAA ) 

C  RANDOMIZE  AMPLITUDE 

I T AAR= I RA ( I T AP » I TAA ) 

C  AMPLITUDE  SIGNIFICANCE  LIMIT 
I T  AAL= I ASL  < I T  AAR ) 

C  PHASE  FOLDOVER  QUESTION 
IPFF-IPFG(ITAP) 

C  PHASE  FOLDOVER 

I TAPE- 1 PF ( I PFF f I TAP  > 

C  NORMALIZE  VECTOR  ADD  TABLE 

ITDT=INVAT ( ITAPF? ITAAL) 

C  COMBINE  EPROM  DATA 

ITD=ICED( ITAAL* ITDT) 

C  SELECT  LARGEST  VECTOR 

IVIL~ISLV( ILF » 1 1VI » I2VI ) 

C  INVERSE-NORMAL I ZE  AMPLITUDE 
I VO A- I INA( IVIL» ITD> 

C  INVERSE-NORMAL I ZE  PHASE  &  INVERSE  PHASE  FOLDOVER 
IVOP'-I  INP<  IPFF  » IVIL  t  ITD> 

C  COMBINE  VECTOR  OUTPUT 


65 


AFAL-TR-79-1075 


IVO=ICVO< IVOR  t I  VO  A ) 

IY=IVO 

C 

IVOH=IPEEK< •167744) 

IYA=IY/2**8 
IYP=IY-IYA*2**8 
3  CONTINUE 

WRITE (7» 103 >  IX1A*IX1P»IX2A» IX2P» IYA» IYP 
WRITE  <  7  * 104  >  IY»IVOH 

104  FORMAT ( 2 ( 1 X  >  06 )  ) 

C 

WRITE ( 7 , 105 )  ILF  t ITAA , ITAAL  r ITAP  » IPFF  r ITAPF 
+  » ITDT  fITD*IVIL» IVOA» IVOP» I VO 

105  FORMAT (12 (IX. 06 ) > 

C 

60  TO  100 
999  CONTINUE 
END 
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PROGRAM  TESTH 
1=0 
J=0 
K=0 

11=0 

JJ=0 

PI=3. 14159265359 
DP=2.0#pI/ 128.0 
DA=2.0**d. 0/8.0) 

DA2=SQRT (DA) 

ADLMT=DA+0. 000001 
PDLMT=DP+0. 000001 

100  CONTINUE 

IF( I .EG. 256)  1=0 
ICNT=ICNT+l 
10  CONTINUE 

IXA=RAN (IltJJ)#*  200 

IFdXA.LT.O.OR.IXA.GT. '177>  GO  TO  10 
20  CONTINUE 

I XP=RAN d  I » J  J  >  * 1 200 

IFdXP.LT.O.OR.  IXP.GT.  ’  177)  GO  TO  20 
30  CONTINUE 

I YA=RAN  < 1 1 » JJ ) *  *  200 

IFdYA.LT.O.OR.IYA.GT.  "177)  60  TO  30 
40  CONTINUE 

IYP=RANdI»JJ)**200 

IF  d YP .LT . 0 .OR . I YP.GT ♦ *  177)  GO  TO  40 

I1VI=IXA*2**8+IXP 

I2VI=IYA*2**8+IYP 

CALL  I POKE  <  *  167762 » I1VI ) 

CALL  I POKE <  *  1 67752 f I2VI ) 

C 

C  DETERMINE  LARGEST  VECTOR  AMPLITUDE 
Il.F=IDLVA  <IlVIfI2VI) 

C  NORMALIZE  AMPLITUDE 

ITAA=INA<ILFfI1VI» I2VI ) 

C  NORMALIZE  PHASE 

ITAP=INP(ILF»I1VI»I2VIfITAA) 

C  RANDOMIZE  AMPLITUDE 

ITAAR=IRA( ITAP» ITAA) 

C  AMPLITUDE  SIGNIFICANCE  LIMIT 
ITAAL  =  IASL  < IT AAR ) 

C  PHASE  FOLDOVER  QUESTION 
IPFF=IPFQ< I TAP) 

C  PHASE  FOLDOVER 
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ITAPF=IPF ( IPFF , ITAP ) 

C  NORMALIZE  VECTOR  ADD  TABLE 

ITDT=INVAT  < ITAPF  r ITAAL) 

C  COMBINE  EPROM  DATA 

ITD=ICED< ITAAL » ITDT ) 

C  SELECT  LARGEST  VECTOR 

IVIL=ISLV (ILF»IlVInI2VI) 

C  INVERSE-NORMALIZE  AMPLITUDE 
IVOA=I INA ( IVIL  » ITD ) 

C  INVERSE-NORMALIZE  PHASE  &  INVERSE  PHASE  FOLDOVER 
IVOP=IINP( IPFF » IVIL » ITD) 

C  COMBINE  VECTOR  OUTPUT 

IVOC=ICVO(IVOP»IVOA) 

c 

IVO=IPEEK( ‘167764) 

IF(I.NE.O)  GO  TO  200 
IFCJ.EQ. 32767)  GO  TO  900 
J=J+1 

WRITE ( 7 > 998 )  N,J 

998  FORMAT < IX ' START  BLOCK  =  '»I4»1X»I6> 

200  CONTINUE 

1  =  1  +  1 

IF(IVO.EQ.IVOC)  GO  TO  100 

WRITE (7»999>  I , I 1 VI , I2VI , I VO r I VOC 

999  FORMAT <  IX ' ERROR ' r 7( IX? 06 ) > 

WRITE  <  7 , 999 )  ILF  r ITAA , ITAP » I TAAR > ITAAL  * IPFF » ITAPF 
WRITE  <  7  r  999 )  ITDT » ITD r IVIL » I VOA» IVOR 
PAUSE 
GO  TO  100 
900  CONTINUE 

J=0 
K=K+1 
GO  TO  200 


END 
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.TITLE  IDLVA  DETERMINE  LARGEST  VECTOR  AMPLITUDE 
I  ILF“IDLVA( I1VI.I2VI) 

♦MCALL  .  .V2.  .  . REGDEF 

• .  V2* . 

.REGDEF 


.GLOBL 

IDLVA 

idlva:  MOV 

<R5>  + 

>R0 

IGET  •  OF  ARGUMENTS 

CMPB 

* 2 

» RO 

>2  ARG  ? 

BNE 

ERR 

I  IF  NOT  THEN  ERROR 

{***♦  LOAD  GENERAL  REGISTERS 

MOV 

8<R5)  + 

rRl 

tLOAD  I1VI 

MOV 

0  ( R5 ) 

.R2 

{LOAD  I2VI 

BIC 

#100377 

»R1 

.CLEAR  PHASE  BITS  &  C15) 

BIC 

*100377 

»R2 

.CLEAR  PHASE  BITS  S  (15) 

MOV 

•0 

i  RO 

1  ILF=*0  I1VI  IS  LARGEST 

CMP 

R1 

.R2 

{ I1VI-I2VI 

BGT 

SKIP1 

{IF  11 VI  LARGER  THEN  SKIP 

MOV 

#1 

.  RO 

{ ILF=1  I2VI  IS  >  OR  ■ 

SKIP1J  RTS  PC  $ RETURN 


»*##*  ERROR  SECTION 

err:  jmp  e*4  {abort  to  monitor 

.END 
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.TITLE  INA  NORMALIZE  AMPLITUDE  26-AUG-77  COKER 
i  ITAA=INA(ILF*I1VI*I2VI> 

•MCALL  .  .V2..  .REGDEF 
..V2. . 

.REGDEF 


. GLOBL 

INA 

ina: 

MOV 

<R5>  + 

*  RO 

*GET  #  OF  ARGUMENTS 

CMPB 

*3 

*  RO 

t 3  ARG  ? 

BNE 

ERR 

fIF  NOT  THEN  ERROR 

***** 

LOAD  GENERAL  REGISTERS 

MOV 

0<R5>  + 

*R3 

*LOAD  ILF 

MOV 

0  <  R5  >  + 

*R1 

*  LOAD  11 VI 

MOV 

0<R5) 

*R2 

*LOAD  I2VI 

BIC 

#100377 

*R1 

i CLEAR  PHASE  BITS  & 

BIC 

#100377 

*R2 

t CLEAR  PHASE  BITS  & 

f 

-I2VI  M2 

OR  -I1VI 

Ml  ?? 

CMP 

to 

*  R3 

>ILF=0? 

BEQ 

M2 

*IF  SO  JMP  -I2VI 

CMP 

#1 

*  R3 

* ILF=1? 

BEQ 

Ml 

JIF  SO  JMP  -I1VI 

***** 

ERROR  SECTION 

ERR  J 

JMP 

0*4 

* ABORT  TO  MONITOR 

***** 

M2 

M2: 

COM 

R2 

* COMPLEMENT  I2VI 

BIC 

*377 

*  R2 

* CLEAR  PHASE  BITS 

ADD 

*400 

*R2 

* -I2VI 

JMP 

ADD 

*  GO  TO  ADDITION 

*  *  *  *  * 

Ml 

mi: 

COM 

R1 

*  COMPLEMENT  I1VI 

BIC 

*377 

*R1 

*  CLEAR  PHASE  BITS 

ADD 

*400 

*  R1 

J-I1VI 

JMP 

ADD 

>60  TO  ADDITION 

*  **** 

ADDITION 

ADD : 

ADD 

R1 

*R2 

>IABS<I1VI-I2VI) 

MOV 

R2 

*R0 

BIC 

#100000 

*R0 

* CLEAR  BIT  (15) 

RTS 

PC 

> RETURN 

.END 
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♦TITLE  INP  NORMALIZE  PHASE 
(  ITAP=INP(ILF»I10I'I20I»ITAA> 

♦MCALL  ..02..  • REGDEF 

..02.. 

.REGDEF 
.GLOBL  INP 


inp: 

moo 

<R5>  + 

'RO 

CMPB 

♦4 

» RO 

BNE 

ERR 

(***« 

LOAD  GENERAL  REGISTERS 

MOO 

6<R5>+ 

»R3 

MOO 

8(R5)+ 

»R1 

MOO 

@<R3)+ 

'  R2 

MOO 

OCRS) 

»R4 

BIC 

*177600 

'  R1 

BIC 

*177600 

»R2 

SWAB 

R4 

BIC 

*177776 

»R4 

(***« 

-1201  M2 

OR  -1101 

Ml  ?? 

CMP 

*0 

'R3 

BEG 

M2 

CMP 

*1 

*R3 

BEG 

Ml 

»***# 

ERROR  SECTION 

err: 

JMP 

e*4 

'  *(  (*  ( 

M2 

M2: 

COM 

R2 

ADD 

R4 

»R2 

BIC 

*177400 

»R2 

JMP 

ADD 

(***« 

Ml 

mi: 

COM 

R1 

ADD 

R4 

'R1 

BIC 

*177400 

'R1 

JMP 

ADD 

(***# 

ADD 

add: 

ADD 

R1 

»R2 

MOO 

R2 

'RO 

BIC 

*177600 

'RO 

RTS 

PC 

.END 


'GET  *  OF  ARGUMENTS 
ARG  ? 

'IF  NOT  THEN  ERROR 


'LOAD  ILF 
'LOAD  1101 
'LOAD  1201 
'LOAD  ITAA 

'CLEAR  AMPLITUDE  BITS  &  (07) 
'CLEAR  AMPLITUDE  BITS  &  (07) 
»ITAA  TO  PHASE  BITS 
(LSB  ONLY  OF  ITAA 


» ILF=0? 

( IF  SO  -1201 
» ILF=1? 

'IF  SO  -1101 


'ABORT  TO  MONITOR 


'COMPLEMENT  1201 
(  RND  +1  OR  0  =  (0  OR  -1) 
'CLEAR  AMPLITUDE  BITS 
'GO  TO  ADD 


( COMPLEMENT  I 101 
(  RND  +1  OR  0  »  (0  OR  -1> 
'CLEAR  AMPLITUDE  BITS 
(GO  TO  ADD 


( IABS  < 1101-1201) 

(LIMIT  TO  LOWER  7  BITS 
(RETURN 
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.TITLE  IRA  RANDOMIZE  AMPLITUDE  9-SEP-77  COKER 
(  ITAAR=IRA< ITAP. ITAA) 


•MCALL  ♦ .V2. • 
. .  V2 .  • 

.REGDEF 
.  GLOBL  IRA 


.REGDEF 


ira: 

MOV 

CMPB 

BNE 

<R5)  + 

*2 

ERR 

.  RO 
fRO 

.GET  *  OF  ARGUMENTS 
(2  ARG  ? 

(  IF  NOT  THEN  ERROR 

.**♦* 

LOAD  GENERAL  REGISTERS 
MOV  0<R5>+  »R1 

MOV  0<R5>  t RO 

$  LOAD  I TAP 
.LOAD  ITAA 

BIC 

SWAB 

ADD 

*177776 

R1 

R1 

» R1 

»  RO 

(LSB  OF  ITAP  ONLY 
(MOVE  TO  AMPLITUDE 
(RANDONIZE  PHASE 

RTS 

PC 

(RETURN 

A  ^  ^  ^ 

F 

ERR  J 

ERROR 

JMP 

SECTION 

0*4 

(ABORT  TO  MONITOR 

.END 
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.TITLE  IASL  AMPLITUDE  SIGNIFICANCE  LIMIT 
9  ITAAL=IASL ( ITAAR ) 

. MCALL  . »V2» ♦  . REGDEF 

« .  V2 . . 

.REGDEF 
. GLOBL  IASL 


iasl:  mov 

<R5)  + 

t  RO 

* GET  *  OF  ARGUMENTS 

CMPB 

*1 

fRO 

*1  ARG  ? 

BNE 

ERR 

*  IF  NOT  THEN  ERROR 

*****  LOAD  GENERAL  REGISTERS 

MOV 

0<R5> 

»R1 

* LOAD  ITAAR 

*****  ALF=? 

MOV 

to 

t  R3 

o 

1! 

IL. 

-J 

« 

MOV 

R1 

fRO 

BIC 

#147777 

fRO 

*TA12  %  TA13  ONLY 

CMP 

#30000 

fRO 

*TA12=1  &  TA13=1  ? 

BNE 

SKIP1 

*IF  NOT  THEN  SKIP 

MOV 

#1 

f  R3 

*  ALF=1 

SKIP1 ♦  MOV 

R1 

fRO 

BIC 

#137777 

fRO 

*TA14=1? 

BEQ 

SKIP2 

*  IF  NOT  THEN  SKIP 

MOV 

#1 

f  R3 

* ALF=1 

*****  IF  AFL 

-1  THEN  SET 

TA10- 

-13 

SKIP2J  MOV 

F<1 

fRO 

CMP 

#0 

f  R3 

* AFL=0? 

BEQ 

SKIP3 

fIF  SO  JMP  TO  RETURN 

BIS 

*26000 

rRO 

*  SET  TAlOf Ilf  &13 

BIC 

#10000 

fRO 

*CLEAR  TA12 

SKIP3J  BIC 

*140377 

fRO 

f CLEAR  PHASEf  (14)f 

RTS 

PC 

* RETURN 

*****  ERROR 

err:  jmp 

SECTION 

0*4 

f ABORT  TO  MONITOR 

♦  END 
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.TITLE  IPFQ  PHASE  FOLDOVER  QESTION  26-AUG-77  COKER 
{  IPFF=IPFQ< I TAP ) 

. MCALL  .  .  V2 .  .  • REGDEF 

.  .V2.  . 

.REGDEF 
.GLOEiL  IPFG 


ipfg: 

MOV 

<R5>  + 

»R0 

{GET  #  OF  ARGUMENTS 

CMPB 

#1 

» RO 

;i  ARG  ? 

BNE 

ERR 

{ IF  NOT  THEN  ERROR 

f  'k'-  %  ^ 

LOAD  GENERAL  REGISTERS 

MOV 

0<R5> 

» R1 

{LOAD  I TAP 

MOV 

*0 

»R0 

{ IPFF=0 

BIT 

*100 

» R1 

{<0A>  BIT  ONLY 

BNE 

SKI  PI 

{ IF  SET  THEN  SKIP 

MOV 

*1 

t  RO 

{ IPFF=1 

SKI  PI 

:  RTS 

PC 

{RETURN 

A  vl/  .  d<  ^ 

f  *  ^  O'  ^ 

ERROR 

SECTION 

ERR  * 

JMP 

0*4 

{ABORT  TO  MONITOR 

.END 
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♦TITLE  I  PHASE  FOLDOVER  26-AUG-77  COKER 
•  ITAPF=IPF  < IPFF • ITAP ) 

♦MCALL  . .V2..  ♦ REGDEF 

.  .V2.  . 

♦REGDEF 
♦GLOBL  IPF 


IPF  ♦ 

MOV 

<R5>  + 

♦  RO 

•GET  ♦  OF  ARGUMENTS 

CMPB  #2 

•  RO 

•2  ARC  ? 

BNE 

ERR 

•IF  NOT  THEN  ERROR 

•  3|( 

LOAD  i 

GENERAL  REGISTERS 

MOV 

<?<R5>  + 

»R1 

•LOAD  IPFF 

MOV 

0<R5) 

•  RO 

•LOAD  ITAP 

♦  *  t  ]|t  j)c 

PHASE 

FOLDOVER  ? 

CMP 

*0 

•  R1 

•IPFF=0? 

BNE 

SKIPI 

•IF  NOT  THEN  SKIP 

COM 

RO 

•FOLD  ITAP 

BIC 

#177700 

•  RO 

•6  LOWER  BITS  ONLY 

ret: 

RTS 

PC 

•RETURN 

skipi: 

CMP 

#1 

•  R1 

» IPFF=1? 

BEG 

RET 

•  IF  SO  RETURN 

»***♦ 

ERROR 

SECTION 

err: 

JMP 

0*4 

•ABORT  TO  MONITOR 

♦  END 
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.TITLE  INVAT  NORMALIZE  VECTOR  ADD  TABLE 

i  ITDT=INVAT  <  ITAF'F  » ITAAL) 


.MCALL 
.  .V2.  . 

,  ,V2.  . 

.REGDEF 

.  REGDFF 

. GLOBL 

INVAT  r 

EF'ROMl » 

EPR0M2 

INVAT 

J  MOV 

<R5)  + 

>R0 

'GET  #  OF  ARGUMENTS 

CMPB 

*2 

»R0 

»2  ARG  T 

BNE 

ERF 

» IF  NOT  THEN  ERROR 

;  **** 

LOAD  GENERAL  REGISTERS 

MOV 

@<R5>+ 

»  R1 

» LOAD  ITAF'F 

MOV 

@CR5> 

'  R2 

'LOAD  ITAAL 

i  **** 

FIRST  9 

BITS  OF’  EPROM  ADDRESS 

MOV 

R2 

.  R3 

'UPPER  PART 

BIG 

*377 

»R3 

'CLEAR  PHASE  OF  ITAAL 

BIC 

*1 77400 

'R1 

'CLEAR  AMP  OF  ITAF'F 

BIS 

R1 

f  R3 

'LOWER  PART 

ASLD 

R3 

'COMPRESS 

ASLB 

R3 

'COMPRESS 

ASR 

R3 

'ALIGN 

ASR 

R3 

'ALIGN 

BIC 

11 76000 

,R3 

'ONLY  TA00-05  X  TAOS-11 

MOV 

*0 

'RO 

'ZERO  EPROM  DATA 

j  %  %  %  % 

READ  E PRO M2  ? 

BIS 

#177400 

'RO 

f SET  BITS  IF  ROM  NOT  SELETED 

BIT 

*10000 

'  R2 

} TA 12=0? 

BNE 

SKIP  3 

'IF  NOT  THEN  SKIP  EPR0M2 

BIT 

*20000 

'  R2 

» T  A 1 3  - 1  ? 

BE  LI 

SKIP4 

? IP  NOT  THEN  SKIP 

BIS 

*2000 

» R3 

' ADDRESS  2ED  K 

SKI  PA 

:  MOVB 

EPR0M2LR3)  rRO 

'GET  EPROM 2 .DATA 

SWAB 

RO 

» EPR0M2  DATA  IN  UPPER  BYTE 

B I C 

*3  77 

» RO 

'CLEAR  LOWER  BYTE 

;  **** 

READ  LIU' 

0M1  ? 

SKIP? 

1  B 1 S 

*377 

'RO 

»SET  BITS  IF  ROM  NOT  SELETEB 

B I C 

*2000 

'  R3 

'RESET  TO  IK  ADDRESS 

BIT 

*20000 

» R2 

» TA13-0? 

BNE 

SKI  PI 

HF  NOT  THEN  SKIP  EPR0M1 

BIT 

*10000 

»R2 

'TA12-1? 

BEO 

SKIP? 

'IF  NOT  THEN  SKIP 

BIS 

*2000 

»R3 

'ADDRESS  2ED .  K 

SKIP,! 

:  MOVB 

EPROM 1 <  R3 )  f  R4 

'GET  EPROM 1  DATA 
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BIC 

*377 

»R0 

BIC 

*177400 

»R4 

i CLEAR  UPPER  BYTE 

BIS 

R4 

r  RO 

{EPROMi  IN  LOWER  BYTE 

SKIPi:  RTS 

PC 

{RETURN 

*****  ERROR 

SECTION 

err:  jmp 

0*4 

{ABORT  Tn  MnwTTnc 

END 


{ABORT  TO  MONITOR 
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.TITLE  ICED  COMBINE  EPROM  DATA  26-AUG-77  COKER 
5  ITD=ICED( ITAAL  t ITDT ) 

•MCALL  » «V2.  <  • REGDEF 

.  .  V2 .  . 

.REGDEF 
•GLOBL  ICED 


iced:  mov 

( R5 )  + 

»R0 

CMF'B 

#2 

r  RO 

BNE 

ERR 

it***  LOAD  GENERAL  REGISTERS 

MOV 

@<R5>+ 

fRl 

MOV 

G?  <  R5 ) 

t  R2 

5****  TA12  S 

TA1 3 

MOV 

*0 

» R3 

BIT 

#10000 

tRl 

BEQ 

SKIP1 

BIS 

*30060 

f  R3 

SKIFi:  BIT 

*20000 

fRl 

BEQ 

SKIP2 

BIS 

*16 

f  R3 

5****  EPROM1 

DATA 

SKIP2J  MOVE! 

R2 

f  R4 

ASL 

R4 

ASL 

R4 

ASL 

R4 

ASL 

R4 

ASRB 

R4 

ASRB 

R4 

ASRB 

R4 

ASRB 

R4 

BIC 

*170360 

f  R4 

5****  EPROM2 

DATA 

MOV 

R4 

rRO 

BIC 

*7401 

fRO 

BIT 

#400 

f  R2 

BEQ 

SKI 

BIT 

*1 

f  R4 

BEQ 

SKI 

BIS 

*1 

fRO 

ski:  BIT 

11000 

f  R2 

BEQ 

SK2 

BIT 

*400 

f  R4 

5  GET  #  OF  ARGUMENTS 
5 2  ARG  ? 

I IF  NOT  THEN  ERROR 


5  LOAD  ITAAL 
5LOAD  ITDT 


5TA12=1? 

5  IF  NOT  SKIP 
5TA12 
5 TA13=1? 

5  IF  NOT  SKIF 
5  TA12+TA13 


5 EPROM1  DATA 


51-4  >  TA00-03  & 

55-8  >  TA08-11 
5 CLEAR  TA04-07  l  TA12-15 


5  OUTPUT 

5 CLEAR  ANDED  BITS 
5BIT1=1? 


5  BIT2=1? 
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BEQ 

SK2 

BIS 

*400 

SK2 : 

BIT 

*2000 

BEQ 

SN9 

BIT 

*1000 

BEQ 

SK3 

BIS 

*1000 

SK3 : 

BIT 

*2000 

BEQ 

SN9 

BIS 

*2000 

SK9* 

BIT 

*4000 

BEQ 

SK4 

BIT 

*4000 

BEQ 

SN4 

BIS 

*4000 

SK4J 

BIT 

*10000 

BEQ 

SK5 

BIS 

*20 

SK5J 

BIT 

*20000 

BEQ 

SK6 

BIS 

*40 

SK6t 

BIT 

*40000 

BEQ 

SK7 

BIS 

*10000 

SK7J 

BIT 

*100000 

BEQ 

SN8 

SK8J 

BIS 

*20000 

it*** 

COMBINE 

BIS 

R3 

RTS 

PC 

Me***  ERROR  SECTION 

err:  jmp  e#4 


?  RO 
»R2 

{BIT3-1? 

»R4 

fRO 
t  R4 

fRO 
t  R2 

>BIT4*17 

r  R4 

r  RO 
t  R2 

{ BIT5=1T 

t RO 
t  R2 

)BITA=1T 

t  RO 
» R2 

»BIT7=1? 

fRO 
» R2 

>BIT8=1? 

»R0 

fRO 

J+TA12+TA13 

{RETURN 

{ABORT  TO  MONITOR 


.END 
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.TITLE  IINA  INVERSE-NORMALIZE  AHPLITUDE 
{  IVOA=IINA<IVILf ITD) 

. MCALL  .  .V2..  . REGDEF 

.  .V2. . 

.REGDEF 
.GLOBL  IINA 


iina: 

NOV 

<R5)  + 

fRO 

IGET  *  OF  ARGUMENTS 

CMPB 

*2 

»R0 

»2  ARG  ? 

BNE 

ERR 

1  IF  NOT  THEN  ERROR 

{***» 

LOAD  GENERAL  REGISTERS 

MOV 

0<R5)  + 

*  RO 

{LOAD  IVIL 

MOV 

0(R5) 

*R1 

{LOAD  ITD 

BIC 

*377 

fRO 

» CLEAR  PHASE 

BIC 

*377 

pRl 

{ CLEAR  PHASE 

BIC 

*100000 

*R0 

1  CLEAR  (15)  IVIL 

BIS 

*140000 

*  R1 

{SET  (14)8(15)  ITD 

ADD 

*400 

*R0 

{CARRY  INPUT  =1 

ADD 

R1 

fRO 

BIT 

*100000 

fRO 

U(UFF>  =  1? 

BEQ 

SKIPl 

{ IF  NOT  SKIP 

BIC 

*77400 

fRO 

{  IV0A=0 

SKIPl ! 

BIC 

*100000 

fRO 

9  CLEAR  (15) 

RTS 

PC 

9  RETURN 

***** 

ERROR 

SECTION 

ERR  • 

JMP 

0*4 

{ABORT  TO  MONITOR 

♦  END 
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♦TITLE  IINP  INVERSE-NORMALIZE  PHASE 
i  IVOP=IINP< IPFFf IVILf ITD> 

♦HCALL  ♦  ♦ V2 ♦  ♦  .REGDEF 
.  .V2.  . 

♦REGDEF 
♦GLOBL  IINP 


IINPJ 

MOV 

(R5)  + 

t  RO 

f  GET  *  OF  ARGUMENTS 

CMPB 

*3 

fRO 

f  3  ARG  ? 

BNE 

ERR 

fIF  NOT  THEN  ERROR 

it*** 

LOAD  GENERAL.  REGISTERS 

MOV 

e<R5)  + 

f  R3 

fLOAD  IPFF 

MOV 

@<R5>+ 

tRO 

fLOAD  IVIL 

MOV 

0(R5) 

f  R1 

fLOAD  ITD 

BIS 

*100 

f  R1 

f  SET  (06)  BIT  OF  PHASE 

ADD 

*1 

f  R1 

f PHASE  OFFSET  CORRECTION 

it*** 

PHASE 

FOLDOVER  ? 

BIT 

*1 

f  R3 

f IPFF=0? 

BNE 

SKIPl 

fIF  NOT  SKIP 

COM 

R1 

f COMPLEMENT  ITD 

ADD 

*1 

f  R1 

f  -ITD 

SKIPl 

:  BIC 

*177600 

f  R1 

f CLEAR  AMPLITUDE  *  (7) 

*  ^  ^ 

ADD 

BIC 

*177600 

fRO 

f CLEAR  AMPLITUDE  *  (7) 

ADD 

R1 

fRO 

BIC 

*177600 

fRO 

f CLEAR  AMPLITUDE  &  <7) 

RTS 

PC 

f  **** 

ERROR 

SECTION 

err: 

JMP 

0*4 

fABORT  TO  MONITOR 

fABORT  TO  MONITOR 
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.TITLE  ICVO  COMBINE  VECTOR  OUTPUT  26-AUG-77  COKER 
(  IVO*ICVO< IVOPf IVOA) 


.  MCALL 
.  .  V2.  ♦ 

•  •  V2  • » 

.REGDEF 

.REGDEF 
. GLOBL 

ICVO 

icvo: 

MOV 

(R5)  + 

fRO 

f GET  *  OF  ARGUMENTS 

CMPB 

*2 

fRO 

12  ARG  ? 

BNE 

ERR 

1 IF  NOT  THEN  ERROR 

Me*** 

LOAD  GENERAL  REGISTERS 

MOV 

0<R5)+ 

»R1 

(LOAD  IVOP 

MOV 

0<R5> 

fRO 

1 LOAD  IVOA 

BIC 

*377 

fRO 

(CLEAR  PHASE  OF  IVOA 

BIC 

*177400 

f  R1 

5 CLEAR  AMP  OF  IVOP 

BIS 

R1 

fRO 

(COMBINE  IVOA  &  IVOP 

RTS 

PC 

1 RETURN 

(  «*«* 

ERROR  SECTION 

err: 

JMP 

0*4 

(ABORT  TO  MONITOR 

.END 
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.TITLE  EPROM 1  9-SEP-77  COKER 
♦GLOBL  EPROM1 


EPROM  1.* 

♦  BYTE 

377. 

376* 

♦  BYTE 

373. 

372. 

♦  BYTE 

347. 

346. 

♦  BYTE 

322. 

322. 

♦  BYTE 

276. 

276. 

♦  BYTE 

212. 

212. 

♦  BYTE 

106. 

65. 

♦  BYTE 

300. 

240. 

♦BYTE  377,  37 6, 
♦BYTE  353,  352» 
♦BYTE  347*  346* 
♦BYTE  323*  303* 
♦BYTE  277*  257. 
♦BYTE  213*  173* 
♦BYTE  70.  67. 


♦  BYTE 

265. 

245. 

♦  BYTE 

357. 

356. 

♦  BYTE 

353. 

353. 

♦  BYTE 

327. 
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367* 

367  * 

367 » 

367 

BYTE 

367, 

367, 

367, 

367, 

367 » 

367 » 

367 » 

367 

BYTE 

367* 

367, 

367* 

367' 

367* 

367  * 

367 » 

367 

BYTE 

367, 

367* 

366* 

366* 

366  * 

366* 

366* 

366 

BYTE 

366  * 

366* 

366  * 

366* 

366* 

366* 

366* 

366 

BYTE 

366, 

366* 

366* 

366* 

366* 

366* 

366* 

366 

BYTE 

366* 

366* 

366* 

366  * 

366* 

366* 

366* 

367 

BYTE 

367* 

367* 

367* 

367* 

367  » 

367* 

367* 

367 

BYTE 

367* 

367* 

367* 

367* 

367* 

367* 

367 » 

367 

BYTE 

367* 

367* 

367* 

367* 

367* 

367, 

367* 

367 

BYTE 

367* 

367* 

367* 

367* 

367* 

367, 

367* 

367 

BYTE 

367, 

367, 

367, 

367* 

366* 

366* 

366* 

366 

BYTE 

366* 

366* 

366* 

366* 

366* 

366* 

366* 

366 

BYTE 

366* 

366  * 

366* 

36 6* 

366* 

3 66* 

366* 

366 

BYTE 

366  * 

366* 

366* 

366* 

366* 

367 » 

367* 

367 

BYTE 

367* 

367* 

367* 

367* 

367* 

367 » 

367* 

367 

BYTE 

367* 

367' 

367, 

367* 

367 » 

367 » 

367, 

367 

BYTE 

367' 

367* 

367, 

367* 

367  * 

367 » 

367* 

367 

BYTE 

367 » 

367* 

367, 

367* 

367, 

367* 

367* 

367 
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.BYTE 

367  f 

367 

.BYTE 

3 66  f 

366 

.BYTE 

366 » 

366 

.BYTE 

366 f 

366 

.BYTE 

367f 

367 

♦  BYTE 

367 1 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  » 

367 

.BYTE 

367  f 

367 

.BYTE 

366  f 

366 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

♦  BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.BYTE 

367  f 

367 

.END 


367  f 

367  f 

367  f 

366  f 

366  f 

366  f 

366  f 

366  f 

366  f 

367  f 

367  f 

367  f 

367f 

367f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

366  f 

366  f 

366f 

366  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367f 

3 67  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367. 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367f 

367f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367f 

367f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367f 

367f 

36  7  f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367  f 

367 f 

367  f 

366 

366 1 

366  f 

366 

366  f 

366  f 

366 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

366  f 

366  f 

366 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 

367  f 

367  f 

367 
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iswab: 


.TITLE  ISWAB  IO-ISWAB(II)  24-JUN-77  COKER 


.MCALL 

. • V2» » 

.REGDEF 

. » V2 . « 

•REGDEF 

• GLOBL 

ISWAB 

MOV 

<R5>+» 

RO 

?GET  #  OF  ARGUMENTS 

MOV 

G(R5)f 

RO 

IGET  ARG 

SWAB 

RO 

ISWAP  BYTES 

RTS 

PC 

t RETURN 

.END 


.TITLE  CLEAR  8TH  BIT  15-DEC-76  COKER 
rFORTRTAN  FUNCTION  ROUTINE  ' I8CLR'  IN  MACRO 


^FORTRAN 

ex:  i= 

I8CLRCI) 

-  WHERE 

THE  8TH  BIT  IS  CLEARED 

.MCALL 

. .  V2 . . 

.REGDEF 

. . V2, . 

.REGDEF 

.GLOBL 

I8CLR 

I8CLR* 

MOV 

<R5)  + 

rRO 

f GET  *  OF  ARGUEMENTS 

CMPB 

*1 

f  RO 

rl  ARG  ? 

BNE 

ERR 

i IF  NOT  THEN  ERROR 

MOV 

0<R5>  + 

»R0 

;get  'i' 

BIC 

#200 

?  RO 

.CLEAR  BIT  *  8 

RTS 

PC 

i RETURN 

err: 

JMP 

e#4 

) ABORT  TO  MONITOR 

.END 
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♦TITLE  BIT  REVERSAL  ROUTINE  14  DEC76  COKER 
> FORTRAN  FUNCTION  ROUTINE  'IBITR'  IN  MACRO 
f FORTRAN  EX:  IBR=IBITR< I »NR)  -  WHERE J 
*'IBR'  IS  THE  BIT  REVERSED  VERSION  OF  'I'  t 
f'NB'  IS  THE  NUMBER  OF  BITS  REVERSED 

♦MCALL  ♦ ♦ V2 ♦ ♦  .REGDEF 

♦  *V2. . 

♦REGDEF 


♦GLOBL 

IBITR 

ibitr: 

MOV 

<R5)  + 

♦  RO 

♦GET  *  OF  ARGUMENTS 

CMPB 

*2 

♦  RO 

12  ARG  ? 

BNE 

ERR 

f IF  NOT  THEN  ERROR 

MOV 

0<R5)+ 

♦  R1 

:get  'i' 

MOV 

0<R5)+ 

♦  R2 

(GET  'NB' 

CLR 

RO 

» CLEAR  * IBR' 

loopi : 

ROR 

R1 

»'I'  BIT  OUT 

ROL 

RO 

f'lBR'  BIT  IN 

DEC 

R2 

*DEC  BIT  COUNT 

BEQ 

DONE 

> JUMP  IF  COUNT  ZERO 

JMP 

LOOPI 

f LOOP  IF  NOT  ZERO 

done: 

RTS 

PC 

♦RESULTS  IN  RO  ? 
t RETURN 

err: 

JMP 

0*4 

> ABORT  TO  MONITOR 

♦  END 
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**#*  LOGPOL  MAIN  INTERCONNECT  PROGRAM  **** 


AND  Y1 

Y9 

TDOO 

OR  Y2 

TAI3 

TDOl 

OR  Y3 

TA13 

TD02 

OR  Y4 

TA13 

TD03 

OR  Y13 

TA12 

TD04 

OR  Y14 

TA12 

TD05 

AND  Y5 

YIO 

TD08 

AND  Y6 

Yll 

TD09 

AND  Yll 

Y7 

TDIO 

AND  Y12 

Y8 

TD11 

OR  Y15 

TA12 

TD12 

OR  Y16 

TA12 

TD13 

A381BVIA0 

AVIAO 

BVIA1 

AVIA1 

BVIA2 

AUDI 

CONTAVIA2 

BVIA3 

AVI  A3 

LF 

LFNOT 

ADD3 

CONT BV I AON 

AVI AON 

BVIA1N 

AVIAIN 

BVIA2N 

CA381 

CONTAVIA2N 

BVIA3N 

AVIA3N 

B381BVIA4 

AVIA4 

BVIAS 

AVI  AS 

BVIA6 

ADD5 

C0NTAVIA4 

LF 

LFNOT 

BVIA4N 

AVIA4N 

ADD7 

C0NTBVIA5N 

AVIASN 

BVIA6N 

AVIA6N 

CA381 

A1X7ADD1 

ADD2 

ADD3 

ADD4 

ADDS 

TA08 

C0NTADD6 

ADD7 

CO 

SUM3 

CONT 

SUMS 

CONT 

SUM7 

OR  SIJM3 

OR1 

TAIO 

OR  SIJM4 

QR1 

TA11 

AND  SUM5 

OR1N 

TA12 

INV  OR1 

OR  IN 

OR  SUM6 

OR1 

TA13 

OR  SUM? 

AND1 

OR1 

AND  SUMS 

SUM6 

AND1 

MA85AVIA0 

AVIA1 

AVIA2 

AVIA3 

AVIAON 

AGTB 

CONTAVIA1N 

AVIA2N 

AVIA3N 

BVIAO 

BVIA1 

AEQB 

CONTBVIA2 

C0NTBVIA3N 

BVIA3 

BVIAON 

BVIA1N 

BVIA2N 

MB85AUIA4 

AVIA5 

AVIA6 

AVIA4N 

AVIA5N 

LF 

C0NTAVIA6N 

BVIA4 

BVIAS 

BVIA6 

BVIA4N 

C0NTBVIA5N 
INV  AVI AO 

BVIA6N 

AGTB 

ALTB 

AEQB 

AVIAON 

ADD2 

ADDA 


ADD6 


TA09 

SUM4 

SUM6 


ALTB 


LFNOT 
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INV 

AVIA1 

AVIAIN 

INV 

AVIA2 

AVIA2N 

INV 

AVIA3 

AVIA3N 

INV 

AVIA4 

AVIA4N 

INV 

AVIA5 

AVIASN 

INV 

AVIA6 

AVIA6N 

INV 

BVIAO 

BVIAON 

INV 

BVIA1 

BVIA1N 

INV 

BVIA2 

BVIA2N 

INV 

BVIA3 

BVIA3N 

INV 

BVIA4 

BVIA4N 

INV 

BVIA5 

BVIA5N 

INV 

BVIAA 

BVIA6N 

INV 

AVIPO 

AVIPON 

INV 

AVIP1 

AVIP1N 

INV 

AVIP2 

AVIP2N 

INV 

AVIP3 

AVIP3N 

INV 

AVIP4 

AVIP4N 

INV 

AVIP5 

AVIP5N 

INV 

AVIP6 

AVIP6N 

INV 

BVIPO 

BVIPON 

INV 

BVIP1 

BVIP1N 

INV 

BVIP2 

BVIP2N 

INV 

BVIP3 

BVIP3N 

INV 

BVIP4 

BVIP4N 

INV 

BVIP5 

BVIP5N 

INV 

BVIPA 

BVIP6N 

INV 

PFFNOT 

PFF 

C381BVIP0 

AVIPO 

BVIP1 

AVIP1 

BVIP2 

CO 

Cl 

C0NTAVIP2 

BVIP3 

AVIP3 

LF 

LFNOT 

C2 

C3 

CONTBVIPON 

AVIPON 

BVIP1N 

AVIP1N 

BVIP2N 

CC381 

C0NTAVIP2N 

BVIP3N 

AVIP3N 

AUDI 

B381BVIP4 

AVIP4 

BVIP5 

AVIP5 

BVIP6 

C4 

C5 

C0NTAVIP6 

LF 

LFNOT 

BVIP4N 

AVIP4N 

PFFNOT 

CJNTBVIP5N 

AVIP5N 

BVIP6N 

AVIP6N 

CC381 

MH87C0 

Cl 

C2 

C3 

C4 

TAOO 

TAOl 

CONTC5 

PFFNOT 

TA02 

TA03 

CONT 

TA04 

TA05 

A157AVIA0 

AVIA1 

AVIA2 

AVIA3 

AVIA4 

XI 

X2 
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C0NTA0IA5 

C0NTB0IA3 

A0IA6 

B0IA4 

boiao 

B0IA5 

BOIA1 

boiaa 

B0IA2 

LF 

CONTLFNOT 

A157AOIPO 

C0NTA0IP5 

C0NTB0IP3 

AOIP1 

AOIP6 

B0IP4 

A0IP2 

BOIPO 

BO  IPS 

A0IP3 

BVIP1 

8VIP6 

A0IP4 

B0IP2 

LF 

CONTLFNOT 

A1X6TD00 

C0NTTD05 

CONT 

TDOl 

TD02 

TD03 

TD04 

CONT 

LS83X1 

CONT X A 
CONTTB1 1 

X2 

X7 

TD12 

X3 

TD08 

TD13 

X4 

TD09 

X5 

TDIO 

CONT 

E381ASUM1 

CONTXIO 

X8 

ASUM4 

ASUM2 

Xll 

X9 

PFF 

ASUM3 

PFFNOT 

CONT 

F381ASUM5 

CONTPFF 

END 

X12 

PFFNOT 

ASUM6 

CE381 

X13 

ASUM7 

X14 

X3 

X4 

xs 

X6 

X7 

X8 

X9 

XIO 

Xll 

X12 

X13 

X14 

ASUM1 

ASUM2 

ASUM3 

ASUH4 

ASUM5 

ASUH6 

ASUM7 

008 

009 

010 

Oil 

012 

013 

014 

000 

001 

002 

003 

CE381 

004 

005 

006 

c, 

| 

i 
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MAC  A381 
DEFABO 

AO 

B1 

A1 

B2 

FO 

FI 

DEFAA2 

B3 

A3 

SO 

SI 

F2 

F3 

DEFABON 

AON 

BIN 

AIN 

B2N 

CN4 

DEFAA2N 

SB11BO 

B3N 

AO 

A3N 

BON 

AON 

SO 

NOR11 

FO 

CONTS1 

SB11B1 

A1 

BIN 

AIN 

SO 

N0R12 

NOR22 

CONTS1 

SB11B2 

A2 

B2N 

A2N 

SO 

N0R13 

N0R23 

CONTS1 

SB11B3 

A3 

B3N 

A3N 

SO 

N0R14 

N0R24 

CONTS1 
SB41N0R1 1 
SB51F0 

FO 

NOR  12 

N0R22 

NOR11 

N0R22 

N0R23 

FI 

F2 

SB&1NOR11 

N0R12 

N0R13 

NOR  14 

FO 

F3 

CN4 

C0NTN0R22 

END 

N0R23 

N0R24 

MAC  B381 


DEFABO 

AO 

B1 

A1 

B2 

FO 

FI 

DEFAA2 

SO 

SI 

BON 

AON 

F2 

DEFAB1N 

AIN 

B2N 

A2N 

CN 

SB12BO 

AO 

BON 

AON 

SO 

NOR  11 

N0R21 

CONTS1 

SB12B1 

A1 

BIN 

AIN 

SO 

NOR12 

N0R22 

CONTS1 

SB12B2 

A2 

B2N 

A2N 

SO 

NOR  13 

N0R23 

CONTS1 

SB32CN 

N0R21 

FO 

SB42NOR1 1 

N0R21 

N0R22 

CN 

FI 

SB52N0R21 

N0R12 

NOR  11 

N0R22 

N0R23 

F2 

CONTCN 

END 
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MAC  C381 

DEFABO 

DEFAA2 

PEFABON 

DEFAA2N 

SB13BO 

CONTS1 

SB13B1 

CQNTS1 

SB13B2 

CGNTS1 

SB13B3 

CONTSl 

SB33CN 

SB43NOR11 

SB53N0R21 

CONTCN 

SB63N0R11 

C0NTN0R22 

END 


MAC  E381 

DEFABO 

DEFAA2 

DEFA 

SB15B0 

SB15B1 

SB15B2 

SB15B3 

SB'35‘30 

SB45N0R1 1 

SB55N0R21 

CONTSONOT 

SB65N0R11 

C0NTN0R22 

END 


AO 

B3 

AON 

B3N 

AO 

B1 

A3 

BIN 

A3N 

BON 

A1 

SO 

AIN 

CN 

AON 

A1 

BIN 

AIN 

A2 

B2N 

A2N 

A3 

B3N 

A3N 

N0R21 
N0R21 
NOR  12 

N0R22 
NOR  11 

CN 

N0R22 

N0R12 

N0R23 

N0R13 

NOR24 

NOR  14 
CN 

AO 

B1 

A1 

B3 

A3 

SO 

AO 

SO 

SONOT 

A1 

SO 

SONOT 

A2 

SO 

SONOT 

A3 

SO 

SONOT 

N0R21 

N0R21 

N0R22 

SONOT 

NOR  12 

NOR11 

N0R22 

NOR  12 

N0R13 

N0R14 

NQR23 

N0R24 

SONOT 

B2 

FO 

FI 

SI 

F2 

F3 

B2N 

CN4 

SO 

NOR11 

NOR  21 

SO 

NOR  12 

N0R22 

SO 

N0R13 

N0R23 

SO 

N0R14 

N0R24 

FO 

FI 

NOR23 

F2 

NOR21 

F3 

CN4 

B2 

FO 

FI 

SONOT 

F2 

CN4 

F3 

NORll 

N0R21 

N0R12 

N0R22 

N0R13 

NOR23 

N0R14 

FO 

FI 

N0R24 

N0R23 

F2 

N0R21 

SO 

F3 

CN4 
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MAC  F381 

BEFABO 

AO 

B1 

DEFASO 

SONOT 

CN 

SB16B0 

AO 

SO 

SB16B1 

A1 

SO 

SB16B2 

SB36CN 

A2 

N0R21 

SO 

SB46N0R1 1 

N0R21 

N0R22 

SB56NQR21 

CONTCN 

END 

N0R12 

NOR11 

A1 

A2 

FO 

B2 

F2 

SONOT 

NOR11 

SONOT 

N0R12 

SONOT 

N0R13 

FO 

CN 

FI 

N0R22 

N0R23 

F2 

FI 

N0R21 

N0R22 

NOR23 
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MAC  A 157 

DEFAA1 

A2 

A3 

A4 

DEFAAA 

A7 

B1 

B2 

DEFAB4 

B5 

BA 

B7 

DEFASNOT 

AND  A1 

SNOT 

AND  B1 

S 

AND  A2 

SNOT 

AND  B2 

S 

AND  A3 

SNOT 

AND  B3 

S 

AND  A4 

SNOT 

AND  B4 

S 

AND  A5 

SNOT 

AND  B5 

S 

AND  AA 

SNOT 

AND  BA 

S 

AND  A7 

SNOT 

AND  B7 

S 

OR  AND1 

AND2 

OR  AND3 

AND4 

OR  AND5 

AN  DA 

OR  AND7 

AND8 

OR  AND9 

ANDIO 

OR  AND11 

AND12 

OR  AND13 

AND  14 

END 

Y1 

Y3 

Y5 

Y7 

AND1 

AND2 

AND3 

AND4 

AND5 

ANDA 

AND7 

AND8 

AND? 

AND10 

AND11 

AND12 

AND13 

AND14 

Y1 

Y2 

Y3 

Y4 

Y5 

YA 

Y7 
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MAC  LS83 
DEFAA1 

A2 

A3 

A4 

A5 

SUM1 

SUM2 

DEFAA6 

A7 

B1 

B2 

B3 

8UN3 

SUM4 

DEFAB4 

B5 

B6 

SUMS 

8UN6 

DEFA 

SUM7 

INV  A2 

A2N0T 

INV  A4 

A4N0T 

INV  A6 

A6N0T 

INV  B2 

B2N0T 

INV  B4 

B4N0T 

INV  B6 

B6N0T 

SB83A1 

B1 

Oil 

021 

CONT 

031 

Cl 

SA83A2N0T 

B2N0T 

Cl 

012 

022 

CONT 

032 

042 

CONT 

C2 

SA83A3 

B3 

C2 

013 

023 

CONT 

033 

043 

CONT 

C3 

SA83A4NOT 

B4N0T 

C3 

014 

024 

CONT 

034 

044 

CONT 

C4 

SA83A5 

B5 

C4 

015 

025 

CONT 

035 

045 

CONT 

C5 

SA83A6N0T 

B6N0T 

C5 

016 

026 

CONT 

036 

046 

CONT 

C6 

SC83A7 

C6 

SUM7 

UFF 

NOR  Oil 

021 

031 

Cl 

N0R1 

NOR  012 

022 

032 

042 

UFF 

SUM2 

NOR  013 

023 

033 

043 

N0R2 

NOR  0  j.4 

024 

034 

044 

UFF 

SUM4 

NOR  015 

025 

035 

045 

N0R3 

NOR  016 

026 

036 

046 

UFF 

SUM6 

NOR  N0R1 

UFF 

SUM1 

NOR  N0R2 

UFF 

SUM3 

NOR  N0R3 

END 

UFF 

SUMS 
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MAC  A1XA 

DEFAA1 

A2 

DEFAA6 

DEFA 

DEFA 

INV  A1 

INV  A2 

AND  A2N 

SUM1 

NOR  A2N 

SUM1 

NOR  AND1 

C2 

AND  C2 

C3 

AND  A3 

C3 

NANDA3 

C2 

OR  AND2 

AND  3 

INV  A4 

AND  C3 

A4N 

NOR  AND5 

A4N 

NOR  AND5 

C4 

AND  C4 

C5 

AND  AS 

C5 

NANDA5 

C4 

OR  ANDA 

AND7 

INV  AA 

AND  C5 

AAN 

NOR  AND9 

AAN 

NOR  AND9 

CA 

INV  CA 

END 

A3 


A4 


AND1 


C3 


C5 


AS  sum 

SUM3 

SUMS 

SUM7 

SUM1 

A2N 

AND1 

C2 

SUM2 

AND2 

AND3 

C3 

SUM3 

A4N 

AND5 

C4 

SUM4 

ANDA 

AND7 

C5 

SUM5 

AAN 

AND9 

CA 

SUMA 

SUM7 


SUM2 

SUM4 

SUMA 
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MAC  A1X7 

DEFAA1 

A2 

DEFAAA 

A7 

DEFA 

DEFA 

AND  C 

Cl 

AND  A1 

Cl 

NANDA1 

C 

OR  AND1 

AND2 

INV  A2 

AND  A2N 

Cl 

NOR  AND3 

A2N 

NOR  AND3 

C2 

AND  C2 

C3 

AND  A3 

C3 

NANDA3 

C2 

OR  AND4 

ANDS 

INV  A4 

AND  A4N 

C3 

NOR  AND6 

A4N 

NOR  ANDA 

C4 

AND  C4 

C5 

AND  AS 

C5 

NANDA5 

C4 

OR  AND7 

AND8 

1NU  AA 

AND  AAN 

C5 

NOR  AND9 

AAN 

NOR  AND9 

CA 

AND  C6 

C7 

AND  A7 

C7 

NANDA7 

CA 

OR  ANDIO 

AND  11 

END 

SUH1 

SUM3 

SUMS 

SUM7 

AND1 

AND2 

Cl 

SUhl 

A2N 

AND3 

C2 

SUM2 

AND4 

AND5 

C3 

SUM3 

A4N 

ANDA 

C4 

SUM4 

AND7 

AND8 

C5 

SUMS 

AAN 

AND9 

CA 

SUM  A 
AND10 
AND11 
C7 

SUM7 


SUM2 

SUM4 

SUMA 
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MAC  MH87 
DEFAA1 

A2 

A3 

A4 

A3 

Y1 

Y2 

DEFAA& 

PFFNOT 

Y3 

Y4 

DEFA 

Y5 

Y6 

EOR  A1 

PFFNOT 

Y1 

EOR  A2 

PFFNOT 

Y2 

EOR  A3 

PFFNOT 

Y3 

EOR  A4 

PFFNOT 

Y4 

EOR  AS 

PFFNOT 

Y5 

EOR  A6 

END 

PFFNOT 

Y6 
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MAC  MA8S 
DEFAAO 

A1 

A2 

A3 

AON 

AOTB 

DEFAA1N 

A2N 

A3N 

BO 

B1 

AEQB 

DEFAB2 

B3 

BON 

BIN 

B2N 

DEFAB3N 

AND  A3N 

63 

AND1 

AND  A3 

B3N 

AND2 

AND  A2N 

B2 

AND3 

AND  A2 

B2N 

AND4 

AND  AIN 

B1 

AND5 

AND  A1 

BIN 

AND6 

AND  AON 

BO 

AND7 

AND  AO 

BON 

AND8 

NOR  AND1 

AND2 

NOR1 

NOR  AND3 

AND4 

NOR  2 

NOR  AND5 

AND4 

N0R3 

NOR  AND7 

AND8 

NORA 

AND  A2N 

B2 

NOR1 

AND9 

AND  A2 

62N 

NOR1 

ANDIO 

AND  AIN 

B1 

NOR1 

N0R2 

AND  11 

AND  A1 

BIN 

NOR1 

NOR2 

AND  12 

AND  AON 

BO 

NOR1 

N0R2 

NOR3 

AND13 

AND  AO 

BON 

NOR1 

N0R2 

N0R3 

AND1A 

AND  NOR1 

N0R2 

NQR3 

NORA 

AEQB 

OR  AND2 

ANDIO 

AND12 

AND14 

AGTB 

OR  AND1 

END 

AND? 

ANDU 

AND13 

ALTB 
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MAC  MB85 
DEFAAO 

A1 

A2 

AON 

AIN 

LF 

LFNOT 

DEFAA2N 

DO 

B1 

B2 

BON 

DEFAB1N 

D2N 

AGTB 

ALTB 

AEQB 

AND  A2N 

B2 

AND1 

AND  A2 

B2N 

AND2 

AND  AIN 

B1 

AND3 

AND  A1 

BIN 

AND4 

AND  AON 

BO 

AND5 

AND  AO 

BON 

AND6 

NOR  AND1 

AND2 

NOR1 

NOR  AND3 

AND4 

NOR2 

NOR  AND5 

AND6 

N0R3 

AND  AIN 

B1 

NOR1 

AND7 

AND  A1 

BIN 

NOR1 

AND8 

AND  AON 

BO 

NOR1 

N0R2 

AND9 

AND  AO 

BON 

NOR1 

N0R2 

ANDIO 

AND  NOR1 

NOR2 

N0R3 

AGTB 

AND  11 

AND  NOR1 

N0R2 

N0R3 

ALTB 

AND  12 

AND  NOR1 

N0R2 

N0R3 

AEQB 

AND13 

OR  AND2 

AND8 

ANDIO 

AND  11 

LFNOT 

OR  AND1 

END 

AND7 

AND? 

AND12 

AND13 

LF 

MAC  SB32 
DFFACN 

N0R21 

FO 

INV  CN 

CNNOT 

EOR  CNNOT 

N0R21 

FO 

END 


no 
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MAC  SB42 

DEFANORU  NOR21  N0R22  CN  FI 

AND  NOR11  CN  A1 

AND  N0R21  NOR 11  A2 

NOR  A1  A2  NOR 

EOR  NOR  N0R22  FI 

END 


MAC  SB52 
DEFAN0R21 

N0R12 

NORll 

DEFACN 

AND  NORll 

NOR  12 

CN 

AND  NORll 

N0R12 

N0R21 

AND  NOR 12 

N0R22 

NOR  A1 

A2 

A3 

EOR  NOR 

N0R23 

END 

N0R22  NOR 23  F2 

A1 

A2 

A3 

NOR 

F2 
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MAC  SBA3 

DEFANOR11 

NOR  12 

NOR13 

PEFANOR22 

N0R23 

N0R24 

AND  NOR11 

NOR  12 

NOR  13 

AND  NOR 11 

N0R12 

NOR13 

AND  NOR 12 

N0R13 

N0R22 

AND  NOR 13 

N0R23 

NANDNOR11 

N0R12 

NQR13 

AND  NQR11 

NOR  12 

NOR13 

AND  NOR 12 

N0R13 

NOR  14 

AND  NOR 13 

N0R14 

N0R23 

AND  N0R14 

N0R24 

NOR  A1 

A2 

A3 

NOR  AA 

A7 

A8 

EOR  NOR1 

N0R24 

AND  F'NOT 

GNOT 

INV  CN 

AND  CNNOT 

GNOT 

NOR  ANDl 

AND2 

END 

N0R14  N0R21  F3 

CN 

CN  A1 

NQR21  A2 

A3 

A4 

N0R14  PNOT 

N0R14  N0R21  AA 

N0R22  A? 

A8 

A9 

A4  NOR1 

A  9  GNOT 

F3 

ANDl 

CNNOT 

AND2 

CN4 


CN4 
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MAC  SB15 

DF.FAB 

A 

SO 

SONOT 

INV  A 

INV  B 

AND  AN 

BN 

SO 

AND  SONOT 

AN 

B 

AND  AN 

BN 

SONOT 

AND  SO 

BN 

A 

AND  SO 

B 

AN 

AND  B 

A 

SONOT 

NOR  A1 

A3 

NOR  A4 

A5 

A& 

A7 

END 

MAC  SB3S 

DEFASO 

N0R21 

EOR  SO 

N0R21 

END 

N0R1 

AN 

BN 

A1 

A3 

A4 

A5 

A6 

A7 

NOR1 

N0R2 


FO 

FO 


MAC  SB45 

NOR  13 

DEFAN0R11 

NOR  12 

DEFANOR22 

N0R23 

NOR24 

AND  NOR 11 

NOR  12 

NOR  13 

AND  NOR 11 

NOR  12 

NOR  13 

AND  NOR 12 

N0R13 

NOR22 

AND  NOR 13 

N0R23 

NANDNOR1 1 

N0R12 

N0R13 

AND  NOR 11 

N0R12 

N0R13 

AND  NOR 12 

N0R13 

N0R14 

AND  NOR 13 

NOR  14 

NOR23 

AND  NOR 14 

N0R24 

A3 

NOR  A1 

A2 

NOR  A6 

A  7 

A8 

EOR  NOR1 

N0R24 

AND  F'NOT 

GNOT 

AND  GNOT 

SO 

NOR  AND1 

END 

AND2 

N0R14 

N0R21 

F3 

SONOT 

SONOT 

SO 

Al 

N0R21 

A2 

A3 

A4 

NOR  14 

PNOT 

NOR  14 

N0R21 

A6 

N0R22 

A7 

A8 

A9 

A4 

NOR1 

A9 

GNOT 

F3 

ANDl 

AND2 

CN4 

MAC  SB1 1 
DEFAB 

A 

BN 

DEFAS1 

AND  AN 

BN 

SO 

AND  SO 

BN 

A 

AND  SI 

AN 

B 

AND  AN 

BN 

AND  SI 

SO 

BN 

AND  SI 

SO 

B 

AND  B 

A 

NOR  Al 

A2 

A3 

NOR  A4 

A5 

A6 

END 

AN 

SO 

NORl 

SI 

Al 

A2 

A3 

A4 

A 

A5 

AN 

A6 

A7 

NORl 

A7 

N0R2 
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MAC  SB41 


DEFANQR11 

FO 

N0R22 

FI 

ANr  FO 

NOR  11 

A2 

NOR  NOR 11 

A2 

NOR 

EOR  NOR 

END 

N0R22 

FI 

MAC  SB51 
DEFAFO 

N0R12 

NOR11 

NOR22 

N0R23 

F2 

AND  NOR11 

N0R12 

A1 

AND  NOR11 

NOR  12 

FO 

A2 

AND  N0R12 

N0R22 

A3 

NOR  A1 

A2 

A3 

NOR 

EOR  NOR 

END 

N0R23 

F2 

MAC  SB&l 
DEFANOR1 1 

N0R12 

N0R13 

NOR  14 

FO 

F3 

DEFAN0R22 

N0R23 

N0R24 

AND  NOR11 

N0R12 

N0R13 

A1 

AND  NOR 11 

N0R12 

NOR  13 

FO 

A2 

AND  NOR 12 

NOR  13 

N0R22 

A3 

AND  NOR 13 

N0R23 

A4 

NANDNOR1 1 

N0R12 

N0R13 

N0R14 

PNOT 

AND  NOR 11 

NOR  12 

NQR13 

N0R14 

FO 

A6 

AND  NOR 12 

NOR  13 

N0R14 

N0R22 

A7 

AND  NOR 13 

N0R14 

N0R23 

A8 

AND  NOR 14 

N0R24 

A9 

NOR  A1 

A2 

A3 

A4 

NOR1 

NOR  A6 

A7 

A8 

A? 

GNOT 

EOR  NOR1 

N0R24 

F3 

NANDFNOT 

END 

GNOT 

CN4 
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MAC  SA83 

B 

DEFAA 

DEFA 

DEFA 

C 

AND  C 

CO 

AND  A 

CO 

AND  B 

CO 

AND  A 

B 

c 

AND  C 

A 

AND  C 

B 

AND  A 

B 

AND3 

NOR  AND1 

END 

AND2 

01 

03 

CO 

01 

02 

03 

04 

AND1 

AND2 

AND3 

CO 


02 

04 


MAC  SB83 


DEFAA  B 

DEFA 

AND  A  CO 

AND  B  CO 

AND  A  B 

NOR  A  B 

END 


03 


01 

03 

01 

02 

03 

CO 


02 

CO 


MAC  SC83 
DEFAA  C 

AND  A  C 

NOR  A  C 

END 


SUM  CO 

SUM 

CO 
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